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LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
002500 25D2 201 A (ENTPT POINT TO MAP ENTRY POINT TABLE 
i KeKRERE SAE ER ED SATE EREEREREGA SRE SEAS GOR EE OSE EES ee EAE SEREREREE SER RERERE 202 eT ee et eeeee eC ttt es Ceeerer rere s Tt est r Terese tite ee ett Teel T tt Terre e 
5 * * aan Se eee Ne ene ae eae Re wees ne ee, eee me eae ee 
6 * HK eC IK * * 
8 ny EReEEOUEOT AES * 205 ** THE FOLLOWING TABLES ARE USED BY THE MDI SUPERVISOR (D3C00) xk 
8 * NONE x 206 ** TO LOCATE THE CORRECT RULE TO INVOKE, TO OBTAIN THE PROPER *X 
9 x * 207 *x PARAMETERS TO PASS TO THE TU'S AND TO PASS TO THE OPERATOR #2 
10 32 a a Cocco got doiciak io i acti ttc tok tok doko tek tok etek ak ak ne oie RURBASE MHEG ReGen THERE ARE FOUR TABLES USED FOR THIS capi 
210 *x* ** 
* * 
ve * SHBeGES: BADE CO (EHEe, EAOGERA DECUER ERENT. * 213 ** THE ASSOCIATED STEP DECIMAL STEP NUMBER OF THAT RULE. * 
V6 RH HK HR He HC a HE HK He ee ee a I i a Re a a a a 2 a fe he he ea a fe 2K oh 2K ak i eke ic oie 2 of a Re ke ake oc fe 2k te ae _° ENTRIES aa Bere Gee Girne BuiE De: saiee Aes oe 
17 * * ; 
216 ** B THE STEP NOMBER IN DECIMAL *% 
coe a Ces peepee oa aa — i" 217 ** 3 AN EQUATE FOR THE STEP NUMBER x 
20 * NONE % 218 ** iba 
71 * * 219 ** RULE INFORMATION TABLE *x 
PYM TESS E SLL SSP SESS SS SP PSS SSS SSS SS CSL SSS SS SSCS CSL SPST CSS CSS ST SSC Se Se LLL ST oo, -s aoe AS PECGERERUE GLee GRBER Hot ACE ore ae Le ioe 
23 * * g 4 g ° 
* HK HACK * 222 ** UNIQUELY DEFINED AREA INDICATED BELOW. END OF TABLE TIS # 
oe . Sree Thine Ree teens * 223 ** INDICATED WITH A X'O000' FOR THE RULE EQUATE. ek 
26 * NONE * 224 ** caer 
27 * * 225 ** SQUES * 
2 8 [ROR I a I aR I FORGE ici ia iokoiciukacioictcde oko tok sok fete ke teak tok aoa aie A SRE e Oe Rae + eo ues sues st 
ae : KK He : 228 ** ** 
39 ; E. C. HISTORY ? eoGcs ee es 
32 * DATE 17DEC76 DATE 18JAN77 DATE O4UMAR7T7 DATE 10JUN77 * 230 ** A) RULE EQUATE X'0101' ** 
33 : ~C. 578486 E.C. 578573 E.C. 578638 E.C. 578625 4 331 oes B) ADDPESS OF MESSAGE TO PRINT - 
33 ‘ DATE O1MAR78 DATE DATE DATE = 237 be $STOP A) RULE EQUATE x'0102" et 
ae & Bees 20a? Eo Bete Pace x 235 ** B) ADDRESS OF MESSAGE 1% 
BB MK Be Ae he He he Hee he ae he oe he 3 fe oe he 2 oe he IK fe he oe He a a ee ee ae he He he OK He ae fe aie eS oe ee ae hc ke oe a ae ae aK he at oe oe he a ae ake ie 236 *x ** 
002500 40 17860 START x*2500° START ADDRESS OF ALL 'I* TYPE PROG 237 : $GOTO : ; * 
000100 41 @QUES EQU X¥'0100°8 EQUATED VALUE FOR MDI STATEMENT 238 ra A) RULE EQUATE X'0200 Pip 
000101 42 @FIXT EQU X'0101! EQUATED VALUE FOR MDI STATEMENT ate pil B 2 DDRES= OF MESSAGE 
000102 43 @STOP EOU X'0102! EQUATED VALUE FOR MDI STATEMENT a | C) NAME OF MAP ee GO TO Hi 
000200 44 @GOTO EOU X¥'0200! EQUATED VALUE FOR MDI STATEMENT 241 nis D) ENTRY POINT WITHIN GO TO MAP TO USE ts 
000201 U5 acAaLL FOU X'0201! EQUATED VALUE FOR MDI STATEMFNT \ 242 bd E) INDICATOR FOR EXTERNAL OR INTERNAL REFERENCE He 
000300 46 @INPT EOU X¥*0300! EQUATED VALUE FOR MDI STATEMENT 244 oes vip 
000400 47 OQUXX EQU = xX'O400! EQUATED VALUE FOR MDI STATEMENT 245 SCALL : ; | 
000500 48 aTUXX EOU X¥'0500! EQUATED VALUE FOR MDI STATEMENT 246 et A) RULE EQUATE X'0201 ne 
000600 49 @NVLD EQU x'0600" EQUATED VALUE FOR MDI STATEMENT a ae eh B OES SR ae ie 
ta 29 EQ a arhttt EQUATE FOR HOT SOUAL 3u9 x DY ENTRY POINT WITHIN CALLED MAP TO USE 0k 
000008 52 HI EOU x'0008! BOUATE FOR HIGH 250 sips E) INDICATOR FOR EXTERNAL OR INTERNAL REFERENCE on 
00000C 53 NH EOU Xx'000Ct EQUATE FOR NOT HIGH 251 ** ae 
000010 54 LO EOU Xx¥'*00108 EQUATE FOR LOW 252 SINPT ; -. 
000014 55 NL EOU x'0014! EQUATE FOR NOT LOW 253 is A) RULE EQUATE X'0300 od 
000010 56 LT EOU X'0010! EQUATE FOR LESS THAN 254 oe B) INPUT TYPE eee OR HEX) pes 
| 00000C S7 LE EQU x'000CcC8 EFOUATE FOR LESS THAN OR EQUAL TO | 255 ay C) ADDRESS OF YES LEG RULE a 
000008 58 GT EOU x'0008°8 EQUATE FOR GREATER THAN 256 . D) DESTINATION LOCATION OF INPUT DATA ne 
000014 59 GE EQU x'o014' FOUATE FOR GREATER THAN OR EQUAL TO 257 ape E) LENGTH OF INPUT DATA nie 
000200 60 ON EQU xX'0200! EQUATE FOR ON | Z28 ** F) LOWER LIMIT OF GOOD DATA 5a 
000202 61 OF EOU X*0202? EQUATE FOR OFF | 259 sb G) HIGHER LIMIT OF GOOD DATA bid 
000204 62 MX EOU X'O2048 EQUATE FOR MIXED | 260 : ope 
000000 63 EBC EQU  x'0000! EQUATE FOR EBCDIC DATA TRANSFER | 261 * SQUXX : : 
000001 64 HEX EQU Xx'OO01' EQUATE FOR HEX DATA TRANSFER | 262 ie A) RULE EQUATE X'0400 =* 
000001 65 XTRNL U Xx'0001° EQUATE FOR EXTERNAL REFERENCE 263 * B) ADDRESS OF YES LEG RULE : oi 
000000 66 INTRNL EQU X*0000° EQUATE FOR INTERNAL REFERENCE 264 ** C) TU BRANCH TO ADDRESS ee eaeaa 
000000 67 PARM EOU <xX'0000! EQUATE INDICATING PARAMETER 265 D) TU BRANCH TO ADDRESS (SECONDARY) “* 
000903 go Gk ey 0883. EQUATE FoR GHIT RDBEESE 363 F| BARARETER t0'458 to 00" - 
real 
000000 70 DUMMY EOU X'0000' ere EQUATE { 268 ** G) STORE ADDRESS FOR FIRST 8 WORDS OF PARAMETER # 
001800 72 PID EQU = *-xX'ODOO! ADDRESS OF MDI HEADER | 202 aa 
000232 73 PTYPE EQU ¥*-X'22CE* ADDRESS OF PROCESSOR TYPE FIELD 270. ** STUXX ; : pis 
00180C 74 STEPNUM EQU  PID+xX'O00C! ADDRESS OF DECIMAL STEP NUMBER ; 271 ** A) RULE EQUATE X'0500 *% 
00180E 75 OPWD1 EQU PID+X"QOOE!® ADDRESS OF OPTION WORD ONE 212 ** B) ADDRESS OF YES LEG RULE * 
001810 76 OPWD2 EOU PID+xX'0010! ADDRESS OF OPTION WORD TWO | 2713 ** C) TU BRANCH TO ADDRESS ** 
001818 77 TUSTATUS EQOU PID+xX!'0018! ADDRESS OF TU STATUS WORD | 274 ** D) TYPE OF COMPARE TO MAKE ON RESULTS * 
00181A 78 TUWORK EOU PID+X"OO1A' ADDRESS OF TU WORK AREA 275 ** E) LENGTH OF COMPARED RESULTS % 
00189A 79 TUPARM1 EOU PID+X'OO9A! ADDRESS OF PARM 1 POINTER | 276 ** F) MASK FIELD FOR COMPARE x 
00189C 80 TUPARM2 EQU PTID+X'009C! ADDRESS OF PARM 2 POINTER | 277 ** G) LENGTH OF PARAMETER IN BYTES * 
00189F 81 TUPARM3 Ego PID+X"OO9E* ADDRESS OF PARM 3 POINTER 278 *«* H) PARAMETER TO PASS TO THE TO ek 
0018 A0 82 TUPARM4Y EOD PID+X'OOAO! ADDRESS OF PARM 4& POINTER 279 ** I) STORE ADDRESS FOR FIRST 8 WORDS OF PARAMETER *e 
0018A2 83 TUPARMS Eu PID+X"OOA2! ADDRESS OF PARM 5 POINTER 280 ** ** 
OO18A4 84 TUPARM6 EQU PID+X*OOA4? ADDRESS OF PARM 6 POINTER 281 ** SNVLD : ** 
0018A6 85 TUPARM7 EOU PID+X'OOA6! ADDRESS OF PARM 7 POINTER 282 ** A) RULE EQUATE X'0600! # 
0018A8 86 TUPARMS EQU PID+X'OOA8! ADDRESS OF PAPM 8 POINTER | gee te aHTay DOTA TABLE ip 
DOAg EE BONELCRNGC Tee. “ero leeontce TDUBRED. GR DERN dG CONERES | 586 x THIS TABLE CONTAINS THE ENTRY POINTS WITHIN THE MAP THAT  ** 
OO018AE 89 TUPARM11 EOU PID+X*OOAE® ADDRESS OF PARM 11 POINTER | 287 ** THE MAP CAN BE ENTERED FROM THESE ENTRY POINTS ARE * 
001880 90 TUPARM12 FOU PTID+X"OOBO! ADDRESS OF PARM 12 POINTER 288 - REFERENCED BY NAME AND ADDRESS. ENTRIES ARE AS FOLLOWES: eK 
0018 B2 91 TUPARM13 EOQU PID+X*00B2! ADDRESS OF PARM 13 POINTER 289 ie nh 
0018B4 92 TUPARM14 EOU PID#X'OOBY? ADDRESS OF PAPRM 14 POINTER 290 ae 8} NAME OF ENTRY POINT : 
o3888 Su aupanate ERD biegoone: «© ABDEgss OF BARE 32 SOEMTES 332 cies sessei Sab casi ee a ease “ 
0O018BA 95 TUMSGWTR EQU PID+X*OOBA?® ADDRESS OF -> TO COMMON MSG WRITER 293 ; THE ENTRY POINT TABLE END IS INDICATED BY A x*0000! abd 
Q018BE 96 TOOA EOU PID+X!00BE! ADDRESS OF UNIT ADDRESS C 23 Dae peeeen aRers Pi 
aetae Sa tucuee: cose: beans a DDRECn Or Tren Gee GGnn onooEe 396 x THIS TABLE CONTAINES THE MESSAGE PASSED TO THE OPERATOR vee 
001866 100 TURRSOLN EOU  brbtxtoocet ADDRESS OF LENGTH OF TU RECULTS. 53g +* OO ee ee ea ee haere tener bee 
+ 
0018C8 101 TURESUL EOD PID+X'00C8! ADDRESS OF TU RESULTS FIELD 299 ph A BpORLE FOR START OF MESSAGE BLOCK ** 
0018FC 102 MAFNAME EOD PID+X'OOFC! ADDRESS OF MAP NAME FIELD IN HEX 300 : B) NUMBER OF LINES OF MESSAGE bia 
001948 103 TUINPT EQU PID+x'0148! ADDRESS OF $INPT DATA | 301 * C) LENGTH OF FOLLOWING LINE 7 
001962 {04 PARMARA EQU PID+X'O16E! ADDRESS OF $INPT INPUT AREA 302 ** D) FIRST LINE OF MESSAGE -* 
0019B8 105 @DCADD1 EOU PID#X'O1B8! MDI POINTER 303 bite E) LENGTH OF FOLLOWING LINE *% 
OO19BA 106 @DCADD2 EQU PID+xX'O1BA! MDI POINTER 304 F) SECOND LINE OF MESSAGE othe 
0019C4 107 SUPSTAT EOU PID+XtO1C4 ADDRESS OF MDI STATUS ane ve G) ETC. os 
ee AaG DeveDol : 4 BGO poueRce oe Deuce anpueae TELE 7 QT HR MRK He RR ae He Me He HE he He 2 Me Re Me He oe He he eae ee a ee ae ae he ac ae he ae shee ak he ade ae ade at ah ake ae ae a ae ae eae ke a Re ae ee ae ae a 
0019 B4 110 DEVADD2 E00 PID+X'O1EY? ADDRESS OF DEVICE ADDRESS TABLE 2 , BOB BA Ae Hee ae he he ee Me he ee he oe Me Mee a aK fe ah ah ae ah he ae ah i eR ale ae ae ake ea a ae ah af ae a ae ae ake ah a ae ae ae ae ee ah aa ae ah 2 ah ae ade eae ae a 
O019EE 111 DEVADD3 EOU PID+X*O1EFE® ADDRESS OF DEVICE ADDRESS TABLE 3 
0019F8 112 DEVADD4S EOD PID+X*O1F8! ADDRESS OF DEVICE ADDRESS TABLE 4 
001A02 113 DEVADDS EQOU PID+X*0202' ADDRESS OF DEVICE ADDRESS TABLE 5 
001A0C 114 DEVADD6 EOU PID4+x'020C! ADDRESS IF DEVICE ADDRESS TABLE 6 
00 1A16 119 DEVADD7 E a PID+K"0216' ADDRESS OF DEVICE ADDRESS TABLE 7 } | 
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17860 --- SEEK FAILURE HAP P/N=1635281 EC=755285 PAGE 03 17860 --- SEEK FAILURE MAP P/N=1635281 EC=755285 PAGE 03A 
LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEHENT COPYRIGHT IBH CORP 1976 
au+s 00000D 657 READO EQU 13 READ WITH FUNCTION BIT 3 OFF SVC 
0027c8 0000 SYI*OPTN2 DC X¥'0000' PROGRAM OPTION CONTROL WORD 2 00000E 658 READ1 EQU 14 READ WITH FUNCTION BIT 3 ON SVC 
542+% BIT HEX OO0O00F 659 RSTAT EQU 15 READ STATUS SVC 
000010 543+B48 EQU 16 0 8 PROBLEM PROGRAM CONTROL BITS 000010 660 WRITO EQU 16 WRITE WITH FUNCTION BIT 3 OFF SVC 
000011 5444+B49 EOU 17 q 7 * 000011 661 WRIT1 EQU 17 WRITE WITH FUNCTION BIT 3 OW SVC 
000012 545+B50 EQU 18 2 2 * THESE BITS ARE USED WITH THE 000012 662 CTRL EQU 18 CONTROL SVC ieee sve 
000013 546+B51 EQU 19 3 1 * SECOND OPTION WD AND ARE TO 000013 663 RICB £EQU 19 RELEASE INTERUPT CONTROL B oc svc 
000014 547+B52 FOU 20 4 8 * BE ASSIGNED BY EACH PROGRAHMER 000014 664 CICB £EQU 20 CONNECT INTERUPT CONTROL BLOCK S 
000015 548+B53 FOU 21 5 4 * 000015 665 HIO EOU 21 HALT ALL I/0 
000016 549+B54 EQU 22 6 2 * 000016 666 REQSD EQU 22 REQUEST USE OF DCP DISK SVC 
000017 550+B55 EOU 23 7 1 * 000017 667 RELSD EQU 23 RELEASE USE OF DCP DISK SVC 
000018 551+B56 OU 24 8 8 * 000018 668 HALT EQU 24 HALT SVC 
000019 552+B57 EOU 25 9 4 * 000019 669 ETOH EQOU 25 EBCDIC TO HEX SVC (STRING 
OOOO1A 553+B58 EOU 26 10 2 * 00001A 670 HTOE £EQU 26 HEX TO EBCDIC SVC (STRING 
00001B 554+B59 EOU 27 11 1 * 00001B 671 ATOH EOQU 27 ASCII TO HEX SVC TRING 
00001C 555+B60 EQU 28 12 8 * 00001C 672 HTOA EOQU 28 HEX TO ASCII SVC (STRING 
00001D 556+B61 EQU 29 13 4 * 00001D 673 ETOA EQU 29 EBCDIC TO ASCII SVC jane NG 
OO001E 557+B62 EQOU 30 14 2 * OOO01E 674 ATOE EQU 30 ASCII TO EBCDIC SVC (STRING 
O00gtE ese) ERY 36 338835 fe uetnt #8033 celta bata eens’ Pon UEdL 
O0001F Se Ot CHE FOU 34 12 $ COMPARE OPERATION. eouezy 678 ReKEREK FHEHKERE ES RHR EERE RE EH AER EE EEEEE ERE ERE REL EEE EEE EEE EE RER EERE ES 
0027CA 0000 + ' ' 679 * 
262+ OPTNS DC X*0000 PROGRAM OPTION CONTROL WORD 3 a ees EQUATES USED BY TU'S AS CONSTANTS * 
* * 
a agel ° SREOE TNE EGRUET se g ce ee PAOGRESS eck eet Meo RRR RHC Re ake ak afc fe ate a ic a ote oe ae Rk ake a a ae a fe ai ae ae i i a a a ai i a 2 ie ac ae ee ae i ie CK 
566+* 2 EXPECTED INTERRUPT XT 10 CS STATUS INTERRUPT ERP CE OOOO4E 683 PLUS EQU  cCP+? PLUS CHAR 
567+* 3 INTERRUPT RECEIVED IN 11 ISB BITS ON (1-7) ISBON 000060 684 MINUS EQU- C!-! MINUS CHAR 
268+* 000000 686 ZERO FOU 0 
569+* 4 EXPECTED ERR/ATTENT XE 12 TEST UNIT RESULTS VOID NG 000001 687 ONE EQU 1 
570+* 5 HARD ERROR FOUND HE 13. OIO CC ERROR TOCC 000002 688 THO EQU 2 
571+* 6 WRONG INTR LEVEL SLE 14 NO INTERRUPT NOLIN 000003 689 THREE EQU 3 
572+* 7 NO INTR EXPECTFD NI 15 INTERRUPT CC ERROR TNCC 000004 690 FOUR EQU 4 
573+* BIT HEX 000005 691 FIVE EQU 5 
000020 S744MI EQU 32 0 8 MYSTERY INTERRUPT HAPPENED 000006 692 SIX EQU 6 
000021 575+ER FOU 33 1 4 ERROR RECEIVED ON INTERRUPT 000007 693 SEVEN EQU 7 
000022 576+XI EQU 34 2 2 EXPECTED INTERRUPT CONTROL BIT 000008 694 EIGHT EQU 8 
000023 S577+IN EQU 35 3 1 INTERRUPT RECEIVED CONTROL BIT 000009 695 NINE EQU 9 
000024 578+XE EQU 36 4 8 EXPECTED ERROR RESPONSE OOOOOA 696 TEN EQU 10 
000025 S79+HE EQU 37 5 4 HARD ERROR, 8 RETRIES 00000B 697 ELEWN EQU 11 11 
000026 S80+$LE EQU 38 6 2 INTERRUPT ON WRONG LEVEL ERROR 00000C 698 TWELV EQU 12 12 
000027 SB814NT EOU 39 7 1 NO INTEFPRUPT EXPECTED FE 00000D 699 THRITN EQU 13 13 
000028 582+cS EOU 40 8 8 CYCLE STATUS IN PROGFESS O0000F 700 FIVTN EQU 15 15 
000029 583+CSA EQU 4 9 4 CYCLE STEAL AVAILABLE 000010 701 SIXTN EQU 16 16 
00002A 584+CE EQU 42 10 2 CYCLE STEAL STATUS INFRERUPT EPROR 000020 702 THRY2 EQU 32 32 
000028 S585+ISBON EQU 43 11 1 ISB BITS ON - 000040 703 SIXT4 EQU 64 64 
00002Cc 586+4+NG EQU 44 12 8 TEST UNIT RESULTS NO GOOD 000080 704 ONE28 EQU 128 128 
00002D 5874+10CC EQU 45 13 4 OIO CC ERROR 000100 705 TWO56 EQU 256 256 
00002E S88+NOIN EQOU 46 14 2 NO INTERRUPT 000400 706 ONEK EQU 1024 1024 
00002F 589+INCC EQU 47 15 1 INTERRUPT CC ERROR 000800 707 TWOK EQU 2048 2048 
290+* 000C00 708 THREK EOU 3072 3072 
591+* COMMON BUFFER FOR PRINTING DATA 001000 709 FOURK EQU 4096 4096 
29 2+% FFFFFF 7411 «M1 FOU -1 -4 
0027CC 0000 594+$TUID DC A (*-* TEST UNIT IDENTIFICATION FFFFFE 712 M2 EQU). -2 ~2 
| O027CE 9990 292+ S10IN Hye A — I/0 AND INTE CONDITION CODES | FFFFFD ioe oF EOu iz =a 
; 2 z = 
0027D2 0000 eee ie ; eam 3K ee List 0 + nines as FFFFFC 716 SEES CEE HEURES IEICE AAAI C EE TARA TA TT TTA TA TIT II A AAA 
0027D4 0000 598+DEV1 DC A (*-* DEVICE DEPENDENT DATA 717 * 
0027D6 0000 599+DEV2 DC Rh (*-* * 718 * THE FOLLOWING ARE EQUATES FOR BIT DISPLACEMENTS FROM THE * 
0027D8 0000 600+DEV3 DC A (#—* 719 * BEGINNING OF THE BYTE TO EACH BIT IN THE WORD OF SWITCHES. * 
0027DA 0000 6014+DEV4 DC A (*-* * 720 * i 
0027D4 602+SCTID EOU DEV! READ ID BUFFER FOR IBIS §&§ TERN 721 ah oe ok ke fe ke ROR Ro a ae oe a oe ie i RR RR 2 oe a fe oa a oc ec he ae i a a i ke a a a a oi a a ee IE a ak 
0027DC 603+DCBUF EQU * DCB BUFFER FOR LAST DCB USED 000000 722 BSO EQU 0 
0027DC 0000 6044+DCB1 DC A (*-* LAST DCB TABLE, CONTROL WORD 000001 723 BS1 EOU 1 
0027DE 0000 6054+DCB2 DC A (*-* LAST DCB TABLE, DEV DEP WORD 000002 724 BS2 EQU 2 
0027E0 0000 6064+DCB3 DC A (*~* LAST DCB TABLE, DEV DEP WORD 000003 725 BS3 EOU 3 
0027E2 0000 607+DCB4 DC A (*-* LAST DCB TABLE, DEV DEP WORD 000004 726 BS4& EQU 4 
0027E4 0000 608+DCB5 DC A (*-~ * LAST DCB TABLE, DEV DEP WORD 000005 727 BSS EQU ) 
0027EF6 0000 6094#DCB6 DC A (*-* LAST DCB TABLE, CHAIN ADRS 000006 728 BS6 EQU 6 
0027E8 0000 610+DCB7 DC A (*-* LAST DCB TABLE, BYTE COUNT 000007 729 BS7 EQU 7 
0O27EA 0000 6114#DCB8 DC A (*-* LAST DCB TABLE, BUFFER ADDRESS 000008 730 BS8 EOU 8 
612+%* 000009 731 BSS EOU 9 
0027EC 613+CSBUF EQU * CYCLE STEAL DATA BUFFER OOOOOA 732 BS10 EQU 10 
0027EC 0000 6144+CSTL1 DC A (*-* CYCLE STEAL BUFFER, RESIDUAL ADRS 00000B 733 BS11 EQU 11 
OO27EE 0000 6154+CSTL2 DC A (*-* CYCLE STEAL WD 2, DEVICE DEPEND 00000C 734 BS12 EQU 12 
0027FO 0000 616+CSTL3 DC A (*-* CYCLE STEAL WD 3, DEVICE DEPEND 00000D 735 BS13 EQU 13 
0027F2 0000 6174+CSTL4 DC A (*—-* CYCLE STEAL WD 4, DEVICE DEPEND 00000E 736 BS14 EQU 14 
0027F4 0000 618+CSTL5 DC Ah (*-* CYCLE STEAL WD 5, DEVICE DEPEND OO0000F 737 BS15 EQU 15 
goairs $008 Suoseemey Be hfecs YEE Seat Up 9! DEVICE DEDEND 4027970 S0ET, Seen. eae 
+ = ‘ 
0027FA 0000 621+CSTL8 DC A (*-* CYCLE STEAL uD 8; DEVICE DEDEND CO eee GE ESTOS OE GSS GE Iaanaodlida iad gad Ibi itetok 440 0 6F BB 6 #4 
622+* 7424 
0027FC 0000 623+$SUBN DC ies LAST SUBROUTINE ADDRESS USED 7434+* TEST UNIT 
0027FE 00000000 624+$DATA DC 2A (*-* OPTIONAL DATA TUN4* 
002802 0021 6254+$INTL DC Xx*00218 INTERRUPT LEVEL REQUESTED 745+4+* FILE STATUS TEST 6/13/77 
002804 0000 626+TURTN DC A (*-* TEST UNIT RETURN ADRS TO MDI 146+* 
002806 00B2 627+$DVID DC X'OOB2!" DEVICE ID 747+* PURPOSE 
002808 19D0 628+SVCAL DC A (DEVADD) ADRS OF DEVICE ADDPESS 7T4U8+% 
00280A 0000 629+ DC A (*-*) IBIS CYLINDER ADDRESS ve FUNCTION: INITIAL RESET OF SEEK OPERATIONS. 
+ + Ps 
631+* THIS TEST UNIT WILL RETURN TO MDI WITHOUT DOING ANY PROGRAM 751+* : PROGRAM INITIALIZES ATTACHMENT. 
632+* FUNCTION. THE RESULTS THAT WERE SET UP IN THE RESULTS AREA ARE 7524+* ¥ CHECK STATUS OF LINES IN ATTACHMENT AND 4962 RELATED TO SEFKS 
633+* STILL VALID BUT A DIFFERENT TEST IS TO BE PERFORMED. 7153+ 
634+* 754+* CALLING SEQUENCE 
00280C 4020 27CC 3c02 6354+T3C02 MVWI X'3C02',$TUID SET UP TEST UNIT ID 755+* 
002812 5700 636+ BXS dBi RFTURN TO MDI SUPVR 7564+* PROGRAM PASSES STATUS OF ALL LINES IN FOLLOWING FORMAT: 
638 COPY OMEQU 75 7+* : TURESUL BIT 0------------ PLO OUT OF SYNC CHECK 
C3 A MA HH HH IK A He RM HE RR He ee he Re Re RR ROE ee a a 2 a 2 oc a kee ek he eke ea a ake fe ak ie he kc ie oe 758+* ” TURESUL BIT -1-==<-=---+---- DATA UNSAFE 
640 * * 759+ : TOURESUL BIT 2------------ INTERRUPT 
64) : EQUATED NAMES FOR SUPPORTED SVC'S has ‘ TURESUL BIT 3===-=--+-+=+- FILF NOT READY 
+ ° 
MRM LTE SICL OC SOCCCSO§£ CSCS CCCSCSCSCCS CC SCLC SSCL TS SS SSeS eT TS SES SLL SL SL CPS SS SL SSS 762+* : TURESUL: Bil: tessS=see—7-> RECAL 
000000 644 OUT FOU 0 OUT SVC 763+* é TURFSUL BIT 5----------- NOT USED 
000001 645 OUTIN EQU 1 OUTIN SVC 764+* ‘ TORESUL BIT 6---------~--- NOT USED 
000002 646 IDLE EOU 2 IDLE SVC 765+* : TURESUL BIT 7----------- NOT USED 
000003 647 ASCII EQU 3 HEX TO ASCII SVC 166+* i: 
000004 648 CHNGE EOU mM CHANGE LEVEL SVC 767+* TURESUL BIT 8-----------~- BEHIND HOME 
000005 649 PGMCK EQU 5 ALLOW RETURN ON PROGRAM CHECK SVC 76 8+ 5 TURESUL BIT 9----------- ACCESS HEAD NOT ME 
000006 650 EXIT EQu 6 EXIT SVC 769+* ‘ TURFSUL BIT 10---------- (NOT), EVEN TRACK INDICATED 
000007 651 TERM EQU 7 TERMINATE SVC 7170+* ‘ TURESUL BIT 11----~------- OT USED 
000008 652 RESET EQOU 8 RESFT DEVICE SVC 7714+ : 
000009 653 RID EQu 9 READ ID SVC 7172+* ‘ TURESUL BIT 12----------- RECALIBRATE NOT RESET 
OOOOOA 654 START FOU 10 START CYCLE STEAL SVC 773+ a TURESUL BIT 13---------- NOT USED 
00000B 655 STCSS EOU 11 START CYCLE STEAL STATUS SVC T7144 5 TURESUL BIT 14---------- SEEK 1 & 2 NOT RESET 
00000C 656 PREP EOU 12 PREPARE DEVICE SVC 7754 : TURESUL BIT 15----~------ (NOT) ON TRACK 
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LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
776+* OO028FE 0000 892 DC pal ee NOT USED 
T77+* ‘s TURESUL BITS 16-31 CS STATS FOR FAILING OP 002900 0000 893 DC Ae O-7 = PHYSICAL SECTOR # MINUS ONE 
7178+ 002902 0000 894 DC X'0000! NOT USED 
fagex  "XTTS NORE 03335¢ 8980 tne UR GHENS aDDRESS 
+% RETURNS TO MDI SUPERVISOR WHEN DONE. a 
781+* 002908 0100 897 DC X¢0100" BYTE COUNT 
782+* EXITS ERROR 00290A 0000 898 DC A (*-*) DATA ADDRESS 
7183+* RETURNS TO MDI SUPERVISOR. 899 * 
784+ 900 * 
poe RETURN CONTROL ea een RECALIBRATE DCB ****k**x 
+ 
T87+* B TURTN* RETURN TO MDI SUPERVISOR 00290C 0007 903 CLDCB DC X'O0O07' RECALIBRATE DCB 
7188+* 00290E 00000000000000000 904 DC TA (*-*) 
789 + OR RR II III COICO RIOR II BOI IOI I IO JI IORI af aioake aie ake aie a ake ae ac ake ae 905 x 
002814 6FOD 2804 790+T7870 MVW R7,TURTN SAVE RETURN ADDRESS 906 ***** WRITE SECTOR ID ** 
002818 4020 27CC 7870 7191+ MVWI X'7870', STUID SAVE TU ID FOR DISPLAY 907 * 
OO281E 4424 27C6 792+ MVA OPTN1, RG SET UP POINTER ADRS IN R4 00291C 0002 908 WSDCB DC X'0002! WRITE SECTOR ID CONTROL WORD 
002822 6E03 2D2A 7193+ BAL $CONC, R6 CLEAR DEV DEP STG AND CONNECT I/0 BL 00291E 0000 909 DC X*'00008 NOT USED 
002826 2D5E 7944 DC A (SERRS$) ERPOR ADRS FOR INVALID PREP 002920 0000 910 DC A (*-* O-7 = PHYSICAL SECTOR # MINUS ONE 
195+* 002922 0000 911 DC A (*-* NOT USED 
002828 8028 19D0 2AC3 796 MVB NEvenOt IDCB1+1 LGAD DEVICE ADDRESS IN IDCRB 002924 0000 912 DC A (*¥-* NOT USED 
O00282E 8028 19D0 2ABF 797 MVB DEVAD ‘IDCBO+1 LOAD DEVICE ADDRESS IN IDCB 002926 0000 913 DC A (*-* CHAIN ADDPESS 
002834 C020 0232 798 MVB CPUID, P80 DETERMINE CPU TYPE 002928 0006 914 DC X*0006! BYTE COUNT 
002838 F025 799 CBI 37,R0 % 00292A 29E2 915 DC poROR eh ADDR OF SECTOR ID DATA 
00283A 1804 800 JNE TT70 JUMP IF NOT 4955 916 ***** READ SECTOR ID DCB *****x%X 
00283C 4020 2852 254c 801 MVWI X*254C',TT7JOA+t+2 LOAD TIME CONSTANT FOR 2 SEC 917 * 
002842 5003 802 J TT7OB 00292C 200A 918 RSDCB DC X'200A! READ SECTOR ID 
002844 4020 2852 OCOE 803 TIT70 MVWI X'OCOE! ,TT7OAt+2 LOAD TIME CONSTANT FOR 2 SEC 00292E 0000 919 pc X'O000! NOT USED 
OO0O284A 4724 2016 804 TTI7OB MVA IOBLK, 4 SETUP IOBLK 002930 0000 920 DC X¥*0000! O-7 = PHYSICAL SECTOR # MINUS ONE 
OO0284E €008 805 SVC RESET ISSUE IO RESET 002932 0000 921 DC X*'0000! NOT USED 
002850 4024 0000 806 TT70A MVWI x'0000',R0 TIME OUT 2 SEC 002934 0000 922 DC xX'0000! NOT USED 
002854 6002 807 TI70C SVC IDLE * 002936 0000 923 DC X'QOO0O0! CHAIN ADDRESS 
002856 B8FE 808 JcT TT70C,RO * 002938 0006 924 DC X*'O006! BYTE COUNT FOR READ SECTOR ID 
002858 CA25 18C8 809 MV WZ TUORESOL,R2 CLEAR RESULTS WORD 00293A 27D4 925 DC A (SCTID) SECTOR ID DATA ADDRESS 
00285C CA25 18CA 810 MVWZ TURESUL+2,R2 CLEAR RESULTS WORD 2 926 * 
002860 4224 18C8 811 MVA TURESUL,R2 ADDRESS OF RESULTS 92] * 
002864 6803 2C22 812 T70Z BAL XIOCS R6 START CYCLE STEAL STATUS 928 ***** READ SECTOR ID IMMEDIATE DCB ***x*** 
002868 2D5E 813 DC A (SERRS) ERROR 929 * 
OO0O286A 4CAT 814 TBTR set ER) INTERRUPT ERROR ' 00293C 200E 930 RIDCB DC X"200E! READ SECTOR ID 
00286C 6A00 2D5E 815 BON ERRS YES 00293E 0000 931 DC X'0000! NOT USED 
002870 8828 27EF 2A4A 816 MVW CSBUF+2,STATS ADDRESS OF CYCLE STEAL STATUS 002940 0000 932 DC X'0000! NOT USED 
002876 4524 2AUA 817 MVA STATS ,R5 * 002942 0000 933 DC X'0000! NOT USED 
00287A 4D87 818 TBTR (8° 7) TEST FOR UNSAFE 002944 0000 934 DC X'0000" NOT USED 
00287C 1001 819 JOFF 704 002946 0000 935 DC Book CHAIN ADDRESS 
OO0O287E 4A4 820 TBTS Se) TURN ON DATA UNSAFE 002948 0006 936 DC X¥'OO06! BYTE COUNT FOR READ SECTOR ID 
002880 4D8F 821 T701 TBTR R5,15) TEST NOT READY OO294A 27D4 937 DC A (SCTID) SECTOR ID DATA ADDRESS 
002882 1001 822 JOFF 1705 938 * 
002884 4A43 823 TBTS R2,3) TURN ON NOT READY 939 * 
002886 4D8B 824 T702 TBTR R5,11 RESET UNSAFE BITS 94Q ***k*e SEEK DCB ee KKK 
002888 4D8Cc 825 TBTR (R5,12 * 947 * 
00288A 4D8D 826 TBTR R5,13 * 00294C 0005 942 SKDCB DC Xx'0005° SEEK DCB 
00288C 4O2F 2A4A 0000 827 CWI 0, STAT ANY OTHER ERROFP BITS ON? 00294E 0000 943 DC X'0000! BIT 0-3=0; BIT4=DIRECTION ;5-15=DIFFER 
002892 1006 828 JE THOR NO 002950 0000 944 DC F'Q! 
002894 4AKY 829 TBTS R2,4 RECAL ERROR | 002952 0000 945 DC FtgQt 
002896 4A42 830 TBTS R2,2 INTERRUPT ERROR 002954 0000 946 DC X*'0000* O-7 = HEAD; 8-15 NOT USED 
002898 8828 27EE 18CA 831 MVW SBOF+2,TURESUL+2 CS STATS 002956 0000 947 DC A (*-*) CHAIN ADDRESS 
00289& 501F 832 J T7OA EXIT 002958 0000 948 DC F'O! NOT USED 
0028A0 6E03 2A88 833 T70B BAL SENS1,R6 GET SENSE WORD ONE 00295A 0000 949 DC FtQg? NOT USED 
0028A4 2D5E 834 DC A (SEPRS) ERROR 950 * 
0OO028A6 4124 2AC4K 835 MVA RDATA,R1 ADDRESS OF SENSE DATA 951 ***** CYCLE STEAL STATUS DCB ****#%#%% 
OO28AA 4901 836 TBT {Bt 1§ TEST PLO OUT OF SYNC 952 * 
OO28AC 1001 837 JOFF 703 00295C 2000 953 CSDCEB DC X*2000* CONTROL WORD 
OO28AE 4Au4O 838 TBTS R2,0 SET *PLO OUT OF SYNC! 00295E 0000 954 DC Fto?! NOT USED 
0028B0 4909 839 1703 TBT R1,9 TEST NOT BEHIND HOME 002960 0000 955 DC ¥*O:! NOT USED 
0028B2 1201 840 JON 704 002962 0000 956 DC F'O! NOT USED 
OO28B4 4A48 841 TBTS (R2,8 SET BEHIND HOME 002964 0000 957 DC Fro’ NOT USED 
0028B6 4905 842 T704 TBT R1,5 TEST HOME POSITION 002966 0000 958 DC FYO* NOT USED 
0028B8 1201 843 JON 705 002968 0008 959 DC xX'0008! G WORDS OF STATS 
OO028BA Gay B44 TBTS nat ak SET ACCESS HEAD NOT HOME 00296A 27EC 960 DC A (CSBUF) ADDRESS OF CYCLE STEAL STATUS DATA 
0O028BC 490F 845 T705 TBT R1,15) TEST EVEN TRACK 961 * 
OO28BE 1201 846 JON 706 962 ***** WRITE DCB 3K 
0028CO 4AGA 847 TBTS (R2,10 SET NOT EVEN TRACK INDICATED 963 * 
0028C2 490D 848 T706 TBT R1,13 TEST NOT SEEK 1 AND 2 00296C 0001 964 WRDCB DC X'OO01' WRITE CONTROL WORD 
0028C4 1201 849 JON 708 : 00296E 0000 965 DC F'g! NOT USED 
0028C6 GAYE 850 TBTS R2,14 SET SEEK 1 AND 2 NOT RESET 002970 90000 966 DC x'0000° 0O-7=0;8-15 = FLAG BYTE 
0028C8 490A 851 T1708 fTBT R1,10 TEST ON TRACK 002972 0000 967 DC X*0000 * SERCH ARGUMENT CYLINDER 
Q0O028CA 1201 852 JON 704 002974 0000 968 DC X'0000* SEARCH ARGUMENT HEAD-SECTOR 
0028CC 4AU4F 853 TBTS (ee A>), SET NOT ON TRACK 002976 0000 969 DC A (*-*) CHAIN ADDRESS 
0028CE 6E03 2A9C 854 T709 BAL ENSO 6 GET SENSE WORD ZEFO 002978 0000 970 DC F'g? BYTE COUNT 
0028D2 2D5E 855 DC A (SERRS) ERROR 00297A 0000 971 DC A (*-*) WRITE DATA ADDRESS 
0028D4 4124 2ACO 856 NVA RDATAO,R1 ADDRESS OF SENSE DATA 972 * 
0028D8 4903 857 TBT AB t 3) TEST RECALIBRATE TRIGGER 973 ****k* VERIFY DCB ACK IK 
0028DA 1001 858 JOFF T1704 974 x 
0028DC 4aAuc 859 TBTS (R2,12) SET "RECALIBRATE NOT FRFSET! 00297C 200C 975 VRDCB DC X'200C! CONTROL WORD 
860 T70A TXIT 00297E 0000 976 DC F'g?r NOT USED 
OO28DE 6802 2DAE 8614+T70A B SCONX RETURN TO MDI CONTROLLER 002980 0000 977 DC X'O000! 0-7=0:8-15 = FLAG BYTE 
BG 2 + IO ROR III FRI III IO IO IOI OR IO IOI i Fok ii tai totais ak fe ae ate ak ake ic ak 002982 0000 978 DC Xx'O000! CYLINDER 
863 * 002984 0000 979 DC X¥*Q000° HEAD - SECTOR 
864 * 002986 0000 980 DC A (*-*) CHAIN ADDRESS 
866 COPY 17872 O1DEC76 002988 0000 981 DC Ftot BYTE COUNT 
B67 i i ala ce 00298A 0000 ee FP DC A (*-*) VERIFY DATA ADDRESS 
qT *x 
869 THIS TU INHIBITS INTERRUPT 12/01/76 * 984 ***** READ DCB KK KK 
870 * CALLING ROUTINE LOOPS ON T72A * 985 * 
B71 3 IOI IIR RIO III II RII IOI IO III IGOR III II IS i iOR I ir i toi ck ak 00298C 2009 986 RDDCB DC X¥*2009° READ DCB CONTROL WORD 
Q0O028E2 6FOD 2804 872 T7872 MVW R7, TURTN SAVE RETURN ADDRESS 00298E 0000 987 DC FQ? NOT USED 
0028F6 4020 2D1A 0020 873 MVWI x'6020' ,TODCB PREP TO LEVEL 2 WITH THE 'I' BIT OFF 002990 0000 988 DC X*'0000' O-7=0,8-15 = FLAG BYTE 
QOO28EC 4724 2D16 874 MVA IOBLK,R? x 002992 0000 989 DC x*'0000' SEARCH ARGUMENT CYLINDER 
0028F0 600C 875 SVC PREP * 002994 0101 990 Dc X'0101! SEARCH ARGUMENT H-R 
QOO028F2 5002 876 T72B 002996 0000 991 DC A (*-*) CHAIN ADDRESS 
0028F4 6FOD 2804 877 T72A MVW R7,TURTN SAVE RETURN ADDRESS 002998 0000 992 DC FtQ! BYTE COUNT 
0028F8 6802 2DAE 878 7728 B $cOnx EXIT 00299A 0000 oon fe DC A (*-*) READ DATA ADDRESS 
881 T78DCB 01DEC76 995 **** WRITE SECTOR ID SKEWED KEKE 
882 ** fZ78DCB) 996 * 
BBS RRA AH RH KR RRR RI FRR IR ARO FORO SO OR IOI IOI II FOI III ICE] 2/1/77 BO IORI IK 00299C 0003 997 WKDCB DC X'0003' congee WORD 
say * 00299E 0000 998 DC X*'0000' NO SED 
885 * DCB TABLES AND DC's 002980 0000 999 DC Ah (*-* §o5 PHYSICAL SECTOR # MINUS ONE 
886 * 0029A2 0000 1000 DC A (*-* NOT USED 
BET 7 i II II IORI IOI II IORI RII IIR III TOR RO ROI I Kf toto ok kok 0029A4 0000 1001 DC A (*-* NOT USED 
888 * 0029A6 0000 1002 DC A (*-* CHAIN ADDRESS 
889 ***** DTAGNOSTIC DCB 4K KO AH 0029A8 0006 1003 DC X'0006! BYTE COUNT 
890 * OO29AA 29E2 1004 DC A (WRSID) ADDR OF SECTOR ID DATA 
0028FC 2008 891 DGDCB DC X*2008' DIAGNOSTIC DCB 1005 * 
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1236 * 002B60 4524 27D4 1351 MVA_ SCTID,R5 SETUP PEAD SECTOP ID BUFFEFP ADRS 
1237 * LOGICAL- 15, 33, 16, 34, 17, 35, 18, 36, 19, 37, 1A, 38, 1B, 39, 002B64 4724 0006 1352 MVWI 6 SETUP BUFFER LENGTH 
1238 * PHYSICAL 2A, 2B, 2C, 2D, 2E, 2F, 30, 31, 32, 33, 34, 35, 36, 37, 002B68 2BAC 1353 FFN R3 {RO} INIT READ SECTOR ID BUFFER 
1239 * OO2B6A 4020 293A 27D4 1354 MVA SCEID, RSDCB+14 DATA ADDR 
1240 * LOGICAL- 1C, 3A, 1D, 3B, X 002B70 5053 1355 J XIO 
1241 * PHYSICAL 38, 39, 3A, 3B, X 1356 * 
1242 * . 002B72 OBFF 1357 $RD MVBI X'FF',R3 SETRD BUFFER TO ALL F'S 
1243 * 002B74 6D08 299A 1358 HVW RDDCB+14,R5 SET UP READ BUFFER ADRS 
1244 * CALLING SEQUENCE 002B78 4724 0100 1359 MVWI X'0100',87 SET UP BUFFER LENGTH 
1245 * 002B7C 2BAC 1360 FFN R3 eo} CLEAR READ BUFFER 
1246 * BAL CONVT,R6 OO2B7E 4020 2D1A 298C 1361 SRDS MVA RDHCB, IODCB SET UP BLOCK FOR SVC CALL 
1247 * 002B84 5049 1362 J XIO 
1248 * RETURN 1363 * 
1249 * 002B86 4020 2D1A 297C 1364 $SRDVY MVA VRDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL 
1250 : B (TT 30442) OO2B8C 5045 see ‘ J XIo 
1252 3 IO OR IGOR III III IOC ICI I ICR dak ke ak tok kk aki tei ac 0O2B8E 4020 2D1A 296C 1367 S$WRT MVA WRDCB,TODCB SET UP CONTROL BLOCK FOR SVC CALL 
1253 * 002B94 5041 1368 J XIO 
QOO2AF6 6EOD 2836 1254 CONVT MVW R6 ,TT304+2 SETUP RETURN ADDR 1369 * 
OO2AFA 802B 29BC 29DB 1255 CB ZEROO,LGSEC#1 CK FOR LOG # ZERO 002B96 4020 2D1A 29AC 1370 S$RKEW MVA RKDCB,IODCB SET UP CONTROL BLOCK FOR SVC CALL 
002B00 100D 1256 JE TT303 BCH IF LOG # IS ZERO 002B9C OBFF 1371 MVBI X'FF*,R3 SET BUFFER TO F'S 
002B02 802B 29DB 29DE 1257 CB LGSEC+1,CB29 COMP LOG TO 29 OO2B9E 4524 27D4 1372 MVA_ SCTID,R5 SETUP READ SECTOR ID BUFFER ADPS 
002B08 1CO0D 1258 JGE  RTT01 BCH IF LGSEC EQ OR LESS THAN CB29 OO2BA2 4724 0006 1373 MVWI 6,R7 SETUP BUFFER LENGTH 
OO2BOA 4024 0002 1259 MVWI 2,R0 SETUP MULTIPLIER OO2BA6 2BAC 1374 FFN R3 ie), INIT READ SECTOR ID BUFFER 
OO2BOE E821 29DB 1260 MB LGSEC+#+1,R0 LOG SECTOR # TIMES 2 Q0O2BA8 4020 29BA 27D4 1375 MVA SCPID,RKDCB+14 DATA ADDR 
002B12 7802 003C 1261 SWI 60,80 LOG SEC TIMES 2 MINUS 60 OO2BAE 5034 1376 J XIO 
002B16 C028 29DD 1262 MVB kRO,PHYSC+1 PHYSICAL SECTOP NUMBER 1377 * 
OO2B1A 500C 1263 J TT304 RETURN TO CALLER 002BBO 4020 2D1A 299C 1378 $WKST MVA WKDCB,IODCB SET UP CONTROL BLOCK FOR SVC CALL 
002B1iC 8028 29E0 29DD 1264 T7303 MVB FIVE9,PHYSC+#1 PHYSICAL SECTOR # 59 QO2BB6 4020 29AA 29EA 1379 MVA WSIDT,WKDCB+14 DATA ADDR 
002B22 5008 1265 J TT304 RETURN TO CALLER OO2BBC 502D 1380 J XIO 
002B24 4024 0002 1266 RTTO1 MVWI 2,R0 LOAD MULTIPLIER 1381 * 
002B28 £821 29DB 1267 MB LESEC+1,R0 LOG SECTOR # TIMES 2 OO2BBE 4020 2D1A 29AC 1382 $RWST MVA  RKDCB,IODCB SET UP CONTROL BLOCK FOR SVC CALL 
002B2C 7802 0001 1268 SWI 1,R0 SUBTRACT ONE OO2BC4 4020 29BA 29F0 1383 MVA SCTST,RKDCB+14 DATA ADDR 
002B30 C028 29DD 1269 MVB  RO,PHYSC#1 LOAD PHYSICAL SECTOR # QO2BCA 5026 1384 J XIO 
eUebet: “SNe NOVE 1239 ae os Rete ener fe 0O2BCC 4020 2D1A 292C 1386 $RIDS MVA  RSDCB,IODCB S 
1272 3 RIOR FR III IR I III OR TOR ik a Fa a ak go a I 2 I aia ki i 2 ak tk ok 0O2BD2 OBFF 1387 MVBI X'FFI?R3 SET BIPEER PO UFRSoCS PAE OVE. Sen DE 
1273 * OO2BD4 4524 29F0 1388 MVA SCTST,R5 SETUP READ SECTOR ID BUFFER ADRS 
1274 * SUBROUTINE 002BD8 4724 0006 1389 MVWI 6,R7 SETUP BUFFER LENGTH 
1275 * QOO2BDC 2BAC 1390 FFN R3 (R5) INIT READ SECTOR ID BUFFEP 
1276 * PURPOSE OO2BDE 4020 293A 29F0 1391 MVA SCEST, RSDCB4+14 DATA ADDR 
1277 * OO2BE4 5019 13392 J XxTO 
1278 * LOAD WRITE SECTOR ID DATA BUFFER FROM RD SEC ID BUFFER 1393 * 
1279 * OO2BE6 4020 2D1A 299C 1394 $SWKEW MVA WKDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL 
4280 * CALLING SEQUENCE OO2BEC 4020 29AA 29E2 1395 MVA WRSID,WKDCB+14 DATA ADDR 
1281 * OO2BF2 5012 1396 J XIO 
1382 : PL, EuSay Be OO2BF4 4020 2D1A 291C 1398 SWSEC MVA WSDCB,IODCB SET U 
’ P CONTROL BLOCK FOR SVC CALL 
1284 * RETURN OO2BFA 4020 292A 29E2 1399 MVA WRSTD, WSDCB+14 DATA ADDR 
1388 (26) 002602 4020 2p1a 291c = 1401 SwsTs HVA SD 
BXSs R WSTS M SDCB,IODCB SET UP CONTROL BLOCK FOP SVC CALL 
1287 * 002C08 4020 292A 29EA 1402 MVA WSIDT, WSDCB+14 DATA ADDR 
1288 CO a I II IGRI OR III IG I GR Rr gk scat i kk ac ac a ak OO2COE 5004 1403 J XIO 
1289 * 1404 * 
1290 * | 002C10 4020 2D1A 28FC 1405 $DIAG MVA DGDCB,IODCB SET UP CONTROL BLOCK FOR SVC CALL 
002B38 4724 0005 1291 LWSID MVWI 5,R7 BYTE COUNT 002C16 5000 1406 J XIO 
002B3C 4324 27D5 1292 MVA SCTID+1,R3 ADDR OF KD SECT ID DATA BUFFEP 1407 XEQIT 
OO2B40 4524 29E2 1293 MVA WRSTD,R5 ADDR OF WF SECT ID DATA BUFFER VO BF HH HH HAH HC FI RO IR FO IR IO A RIOR I ROR RI OIC IK IO JI L765 
OO2B44 2BA4 1294 NVEN Ee , (B5) MOV DATA FROM RD TO WR BUFFEP 1409+* 
O0O2B46 5600 Ieae Z BXS R6 RETURN TO CALLER tiaaee SUB-ROUTINE 
+ 
1298 * 1412+% EXECUTE INPUT AND OUTPUT COMMANDS 
1299 * EXECUTE INPUT & OUTPUT COMMANDS 1413+% 
1300 * TO EXECUTE ALL I/O COMMANDS FROM A COMMON PLACE. 1414+* PURPOSE 
1301 * EACH OF THESE ENTRIES SET R7 WITH THE ADRS OF ITS PARAMETER 1415+* 
1302 * LIST AND ANY SPECIAL SWITCHES BEFORE BRANCHING TO THE 1416+* TO EXECUTE ALL I/O COMMANDS FROM A COMMON PLACE. 
Sern : SUPVR CALL. eee THIS SUBROUTINE WILL DO THE FOLLOWING FUNCTIONS: 
1305 * THIS SUBROUTINE WILL CHECK FOR THE FOLLOWING: 1419+* 1. SAVE THE ADDRESS THAT POINTS TO THE INSTRUCTION THAT STARTED 
1306 * : 1420+* THE I/O COMMAND. 
1307 * 1. LOST INTERRUPTS BY TIMING OUT A COUNTING LOOP 1421+* 2- SAVES THE DCB BLOCK USED UNLESS IT IS A START CYCLE STATUS 
1308 * 2. ERROR INTERRUPTS RECEIVED FROM SUPVR 1422+% ISSUED BY THIS SUBROUTINE. 
1309 * 1423+* 3. CLEAR OUT THE CYCLE STEAL STATUS STORAGE UNLESS THE 
1310 * THIS ROUTINE HAS THE FOLLOWING ENTRIES: 1424+ START CYCLE STATUS WAS ISSUED BY THIS SUBROUTINE. 
1311 * Pe 1425+* 4G. RESETS THE INTEPRUPT INDICATOR AND CHECKS FOF ANY INTERRUPT 
1312 * 1 BAL SEKEW,R6 READ SECTOR ID SKEWED 1426+* SINCE THE LAST EXPECTED INTERRUPT. IF AN INTERRUPT IS FOUND, 
1313 * a 1427+* MYSTERY INTERPUPT eth CONTROL BIT IS SET. 
1314 * 2 BAL SWKST, R6 WRITE SECTOP ID SKEWED (TEST) 1428+* 5. MOVES THE ADDRESS OF THE I/O CONTROL BLOCK IN R7, SET THE 
1315 * ‘ 1429+%* EXPECTED INTERRUPT CONTROL BIT AND ISSUE THE 'SvC START". 
1316 * 3. BAL S$RWST,R6 READ SECTOR ID SKEWED (TEST) 1430+* 6. WHEN THE SUPVR RETURNS AFTER ISSUING THE I/O COMMAND, TIMING 
1317 * _ 1431+* STARTS TO DETERMINE A LOST INTERROPT. 
1318 * 4 BAL SRIDS,R6 READ SECTOR ID (TEST) 1432+* 7. EXCEPT THE INTEPRUPT AND GATHER INFORMATION TO DETERMINE IF IT 
1319 * - 1433+* WAS AN ERROR OR OKAY AND EXIT OFF THE INTERRUPT LEVEL. 
1320 * 5 BAL SWKEW,R6 WRITE SECTOR ID SKEWED T434+* 8. CHECK IF THERE WAS A WRONG INTERRUPT LEVEL. 
1321 * : 1435+% - CHECK IF AN ERROR WAS EXPECTED AND IF THERE WAS RETURN. 
1322 * 6 BAL SWSEC,R6 WRITE SECTOP ID 1436+* 10. CHECK IF THERE WAS AN ERROR CONDITION, IF NOT RETURN. 
1323 * = 1437+* 11. CHECK TO SEE IF THE EXERCISER IS TO Bk TERMINATED. 
1324 * 7 BAL SWSTS,R6 WRITE SECTOP ID (TEST 143 8+* 12. CHECK IF A CYCLE STEAL OPERATION WAS IN PROGRESS THAT WAS 
1325 * ie 1439+* ISSUED BY THIS SUBROUTINE. 
1326 * 8 BAL  SDIAG,R6 DIAGNOSTIC 14U404+* 13. CHECK THE ISB BITS THAT APE ON. IF BIT 0 IS ON, ISSUE A 
1327 * ‘ 1441+ CYCLE STEAL STATUS COMMAND. CHECK FOP ANY OTHER BIT BEING ON, 
aoc . 9 BAL XIOCS,F6 CYCLE STEAL STATUS ee COUNT IT AND SET UP THE PROPER ERROR MESSAGE TO BE PRINTED. 
1330 : 10 BAL SSEEK,R6 SEEK qegess CALLING SEQUENCE 
: + 
1332 . 11. BAL SRECL,R6 RECALIBRATE ae. THIS ROUTINE HAS THE FOLLOWING ENTRIES: 
1334 * 12 BAL $RDID,R6 READ SECTOP ID 1448¢* --> BAL XIO OR XEQ ANY CYCLE STEAL COMMAND, MOD=0 
1335 * : 1449+* --> BAL XI01 MOD PARM PRELOADED IN 'ToMOoD! 
1336 * 13 BAL S$RD,R6 READ 1450+* --> BAL XIOCS,R6 _ OR XEQ START CYCLE STEAL STATUS, MOD=F 
1337 * - 1451+* --> BAL XIOCS-4,R6 AUTO CS STATUS he OTHER XIO 
HES : 14 BAL SRDVY,R6 READ VEFPIFY eae . AND DOFS NOT POST INTERRUPT STATUS) 
1340 * 15 BAL SWRT,FP6 WRITE 1454+* RETURN CONTROL 
13 3 gett axe a6y3 
+ B R RETURN TO USER NO ERROR 
002B48 4020 2D1A 294C 1343 S$SEEK MVA  SKDCE,IODCB SET UP CONTROL BLOCK FOR SVC CALL 14574+* OR B. Beye RETURN AND RETRY ON ERROR 
OO2B4UE 5064 1344 J XIO TUS Bt RH HHH RK KC IO IORI IO IOI OR IO ROK I Ra AK doko it ok ok ake ak 
1345 * 002C18 CB25 2D1C 1460+XIO MVWZ IOMOD,R3 SET MOF OF O FOR CYCLE STEAL OP 
002B50 4020 2D1A 290C 1346 S$PECL MVA  CLDCB,IODCB SET UP BLOCK FOR SVC CALL 002C1C 500A 1461+ J XI01 CS I/O'S ARE NOT RETRIED 
Pee nee age 9 HO 002C1E 4CAA 1463s 4 
+ TBTR R4,CE RESET CS STATUS INTEPF ERROR INDICAT. 
002B58 4020 2D1A 292C 1349 $RDID MVA_ RSDCB,IODCB SET UP BLOCK FOR SVC CALL 002C20 4C68 14644 TBTS tearcs} SET "CYCLE STEAL STATUS! IN PROGRESS 
OO2B5E OBFF 1350 MVBI X'FF',R3 SET BUFFER TO F*S 002C22 4020 2D1A 295C 1465+XIOCS MVA SDCB, ODCB SET UP CONTROL BLOCK FOR SVC CALL 
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002C28 4020 2D1C OOOF 1466+ MVWI xX'OOOF*®,IOMOD SET CYCLE STEAL MODIFIER 002CA8 1006 1582+ JE INTR1 * YES, BCH TO END INTR SEQUENCE IL 
002C2E 4C28 1467+ TBT (Ra CS) IS CS IN PROGRESS, ERROR CONDITION OO2CAA 4C61 15834INTET TBTS {Re ER) SET ERROR ON I/O COHMAND CNTL BIT IL 
002C30 1213 1468+ JON To4 * YES, BYPASS SAVING T¢9 ADRS OO2CAC 5004 15844 J wrh1 IL 
§O5c34 baon S7be 1gore OVS | RCBHE RS SAVE {AR FOR REIRY 1F REQUESTED 128ee% Pee eee DRHCE AS THE RORMAL ENTR IL 
+ 4 { 
002C3A 6D08 2D1A 1471+ MVW TODCB,R5 * AND THE FROM ADRS, ALONG WITH 1 5 BB a HH He Me Me He He He He He He Me eH He He he hee hee Be He eH he he he Be ae he ae ae ee he He eK KKK KKK TUAPRTGETL 
0O0O2C3E OF10 1472+ MVBI 16,27 * THE NUMBER OF MOVES 1589+ IL 
002C40 2D64 1473+ MVFN 4B) §R3) MOVE 1 STATUS WORD AND ADJUST 1590+* SOUBROUTINE TL 
002C42 OBFF 1474+ MVBI 55 8 CLEAR CYCLE STATUS RBUFFER 15914 IL 
002C44 4524 27EC 1475+ MVA CSBOF,R5 * TO ALL ONES * 15924* OKAY INTERRUPT RUNS ON INTERRUPT LEVEL '$INTL'* IL 
002C48 OF10 1476+ MVBI 16,R7 x 1593+ TL 
OO2C4A 2BAC 1477+4 FFN R3 4B5) * 15944+* PURPOSE IL 
O0O2C4UC 4020 27CE 0708 1478+ MVWI x'6708",SIOIN OVERLAY OLD CONDITION CODES 1595+ IL 
002c52 CB25 27D0 eee MVWZ $ISB,R3 ZERO OUT OLD ISB VALUE Vagos TO CHECK THE INTERRUPT AND CONTINUE THE TEST rE 
+ 
002C56 4CA1 1481¢ TBTR (RY,ER RESET ANY ERROR BEFORE I/O COMMAND 15984+* CALLING SEQUENCE IL 
002Cc58 4CA3 1482+XI02 TBTR RY,IN CLEAR INTERRUPT RECEIVED CNTL BIT 1599+* IL 
O0O2C5A 4724 2D16 1483+ MVA OBLK, &7 SET UP CONTROL BLOCK FOR SUPVR 1600+4+* SUPERVISOR WILL ENTER HERE IF INTR CC IS AS REQUESTED IL 
OO2C5E 4CA6 14844 TBTR RY, SLE) RESET LEVEL ERROR INDICATOR 1601+* THE ERROR INTERRUPT HANDLER WILL BRANCH TO THIS ROUTINE TL 
002C60 4C62 1485+ TBTS R4 ,XT) SET EXPECTED INTR CONTROL BIT 1602+* AFTER THE SPECIAL PART HAS BEEN COMPLETED AND THE IL 
002C62 600A ee svc TALT CALL SUPVR FOR I/O COMMAND 130345 COMMON SECTION IS HANDLED HERE. IL 
+ 
002C64 4CAT7 1488+ TBTR R4,NI) TS AN INTR EXPECTED 1605+* RETURN CONTROL TL 
002C66 6ACO 0002 14894 BN R6,2) * NO, RETURN TO USER 1606+* IL 
1490+* 1607+* SVC EXIT RETURN TO USER VIA SUPVR TL 
14914+* THE INTR SHOULD OCCUR WHILE SPINNING IN THE NEXT SECTION 1608+* IL 
14924 16.0 9-4 ek ek Ra i gk kita te tok tok tok ie tok tk tk TT 
002c6A ODOO 1493+ MVBI x*00!,R5 SET UP WORK REG FOR 'LOST INTR! OO2CAE 706E 16104#INTOK DC X'706E* COPY STATUS ANY LEVEL INTO R3 IL 
002C6C 4CA3 14944+XI0O8 MTBTR {Ra th) HAS INTERRUPT BEEN RECEIVED 002CBO 336A 1611+ SRL 13,R3 POSITION INDICATORS IN R3 IL 
OO0O2C6E 1238 1495+ JON TOCK * YES, CHECK IF ALL WAS SATISFACTORY 0O02CB2 4424 27C6 1612+ MVA OPfN1,R4 SFT UP BASE ADRS IL 
002C70 6002 1496+ SVC IDLE ALLOW ANOTHER PROGRAM A CHANCE TO RUN 002CB6 4C63 1613+INTR1 TBTS Ru, rf SET INTERRUPT RECEIVED IL 
1497+ SUPVR WILL RETURN HERE O0O02CB8 4C28 1614+ TBT R4G,cs IS 'CS IN PROGRESS! ON IL 
002C72 7DA1 0001 1498+ AWIL 1,R5 ADVANCE TIME OUT COUNT OO2CBA 1204 1615+ JON NTR? * YES, BCH AROUND UPDATE IL 
002C76 18FA 1499+ JNZ xfo8 BCH IF TIME OUT NOT REACHED 002CBC C328 27CF 1616+ HVB R3, SLOIN+1 SAVE INTERRUPTING CC CODE TL 
002C78 4C61 1500+ TBTS R4,ER) SET ON ERROR CONTROL BIT 002cCO 6FOD 27D0 1617+ MVW R7,$1SB SAVE INTR STATUS AND DEV ADRS IL 
002C7A 68D2 0000 1501+ B R6) * ERR 'NO INTERRUPT! 002CcC4 1618+INTR2 EQU * IL 
1503 RK RH HH HH RH RR RK RR HR RR RO RI RIO IO tk gk folk gok $k 4k) BF EB 7 6** 1619+* CPCL R5 CURRENT LEVEL COPIED BY DCP IL 
1504+* 002cC4 3521 1620+ SLL 4,R5 POSITION INTR LEVEL AND PUT TL 
1505+* SUBROUTINE 002CC6 0501 1621+ ABIL 1,R5 * IN "I" BIT IL 
1506+* 002CC8 CD24 2802 1622+ SINTL,RS IS THIS THE CORRECT INTR LEVEL IL 
1507+* I/O EXECUTE ERROR HANDLING ROUTINE 002ccc 1002 1623+ INTR3 * YES, GO EXIT THIS LEVEL IL 
1508+ OO2CCE 4C66 1624+ TBTS R4 , SLE) SET INTR LEVEL ERROR CONTROL BIT IL 
1509+#* PURPOSE 002CDO0 4Cé61 1625+ TBTS R4,ER SET ERROR ON I/O COMMAND CNTL BIT IL 
1510+* 002CD2 4CA2 1626+INTR3 TBTR R4,XI WAS INTEPRUPT EXPECTED TL 
1511+%* THIS ROUTINE WILL COLLECT INFORMATION TO HELP DETEPMINE THE 002cD4 1204 1627+ JON nthx * YES, EXIT OFF THIS INTR LEVEL IL 
1512+* PROBLEM THAT WAS FOUND WHEN THE I/O COMMAND WAS ISSUED BY THE 002CD6 4c60 1628+ TBTS fre MI) * NO, SET MYSTERY INTR CONTROL BIT IL 
1513+* SUPERVISOR AND IT WAS NOT ACCEPTED. 002CD8 F304 1629+ CBI R3 ATTENTION INTERRUPT? IL 
15144+* 002CDA 1001 1630+ JE INTRX YES TL 
4515+* CALLING SEQUENCE OO2CDC 4CéC 1631+ TBTS R4 ,NG) ERROR,UNEXPECTED INTERRUPT IL 
1516+ OO2CDE 6006 1632+INTRX SVC f EXIT THIS LEVEL VIA SUPVR TO PGM TL 
1517+* SUPVR WILL ENTER WHEN AN ERPOR OCCURS ON AN I/o COMMAND 1G 3 EHR MK He Me He Me He He Me He he Me He he He he he he he ae 3 ae he he Be ae eh eh he ae ah he he a 2 a ee ee Re he ke Ke KK KK HKKOY SPER] GX 
1518+ 1635+% 
1519+* RETURN CONTROL 1636+ THIS IS THE CONTINUATION OF EXECUTE 1/0 AFTER THE INTERRUPT 
| 1520+* | 1637+* HAS BEEN SERVICED. THE EXERCISER FINDS AN INTEPRUPT HAS BEEN 
| 1azite B (R6) * RETURN TO USERS ERROR HANDLER 1038s RECEIVED AND BRANCHES HERE TO CHECK FOR ANY ERROR CONDITIONS. 
+ + 
V5 D3 eR HH He Me He ee ee oe eee He he eH ee ee eK ee ee he he Oe Hee ee KC ee ee ee ee He a ec 2 he a a ee ee ek ie ie ee Ke 1640+ 
15244+* 0O2CEO 4CA4 16414+XIOCK TBTR R4,XE) WAS AN ERROK EXPECTED 
15254+* CC O= DEVICE NOT ATTACHED 002CE2 6ACO 0002 1642+ BN R62) * YES, EXIT THIS ROUTINE 
1526+* FOR 1= DEVICE BUSY 0O02CE6 4CA8 1643+ TBTR R4,CS) WAS AUTO CS IN PROGRESS 
1527+* I/0 2= DEVICE BUSY AFTER RESET O002CE8 1006 16444 JOFF TOCV * NO, CONTINUE CHECKING 
1528+ 3= COMMAND REJECT OO2CEA 4C2A 1645+ TBT {Ra CE) Is c§& IN AN ERR CONDITION 
1529+ Y= TNTERVENTION REQUIRED OO2CEC 1002 1646+ JOFF Toeéo * NO, BCH 
1530+* S= INTERFACE DATA CHECK OO2CEE 68D2 0000 16474 B R6) * cs ERROR 
1531+* 6= CONTROLLER BUSY O0O2CF2 4c69 1648+XIOCO TBTS R4,CSA) TURN ON CS STATS AVAIL FLAG 
1532+* 7= I/0 COMMAND EXCEPTED OO2CF4 5601 1649+ BXS R62) GO TO USEP 
1533+* 0OO2CF6 4C21 1650+XIOCV TBT R4,ER) WAS ERROP INTR CONTROL BIT ON 
0O0O2C7E 706E 1534+XIOER DC X"*706E! COPY STATUS ANY LEVEL INTO R3 002CF8 1008 1651+ JOFF ToéxX * NO, EXIT THIS ROUTINE 
002C80 336A 1535+ SRL 13,R3 POSITION CC CODE TO BITS 13-15 1652+* 
002C82 C328 27CE 1536+ MVB R3,$10IN * PUT IN LOG OUT AREA OO2CFA C520 27CF 1653+ MVB SIOIN+1,R5 GET LAST INTR CC CODE 
002C86 68D2 0000 1537+ B (R6) * RFTURN TO USER ERROR HANDLER OO2CFE F502 1654+ CBI 2,R5 IS THIS cCC=2 
V5 3 Oa HH HM HK Be He Hee He He He He He He ee 2K ee 3c a ie he ce oie ae he She ce Oe oe he i 2 ee i oh ee KK Fk KKK TUADR IT 6*% 002D00 68D1 0000 1655+ BNE (Re) * * NO BCH TO ERROR HANDLER 
1540+ IL 002D04 C520 27D0 1656+XIOCO MVB ISB,R5 GET LAST ISB DATA BYTE AND IF CS 
1541+* SUB-ROUTINE IL 002D08 6A00 2C1E 1657+ BN XxToc§-4 * AVAILABLE, GO AND GET IT 
1542+ TL 002D0C 68D2 0000 1658+ B (RB) § ERROR 
1543+* ERROR INTERRUPT RUNS ON INTEPRUPT LEVEL 'SINTL! TL 002D10 CB25 27CA 1659+XIOCX MVWZ OPTN3,R3 CLEAR OUT OPTION 3 CNTL BITS 
154u4+% IL 002D14 5601 1660+ BXS (R6,24 RETURN TO USEP VIA REG 6 
1545+* PURPOSE TL 1661+* 
1546+ Tt, 1662+* I/O PARAMETER LIST 
1547+* THIS ROUTINE WILL BE ENTERED WHEN THE SUPVR DETECTS AN ERROR TL 1663+* 
1548+ OR THE INTERRUPTING CONDITION CODE DOES NOT AGREE WITH THE IL 002D16 19D0 1664+IOBLK DC A (DEVADD) ADRS OF DEVICE ADRS 
1549+ EXPECTED CODE. IL 002D18 2C7E 1665+ pc A (XIOER) ERROR ROUTINE ADRS 
1550+ IL 002D1A 0000 1666+IODCB DC h (*-* DCB ADRS OR LEVEL & INTR 
1551+* CALLING SEQUENCE IL 002D1iC 0000 1667+IOMOD DC A (*-* MODIFIER 
1552+ TL 002D1E 0000 1668+ DC A (*-* ADRS OF LAST SVC CALL 
eer hae SUPVR WILL ENTER WHEN AN ERROR CCCURS ON AN I/O INTEPRFUPT rt 002D20 0000 166 3+ TORSP DC A (*-* SECOND WORD OF LAST IDCB 
+ 
13 pots RETURN CONTROL iL e416) INTERRUPT CONTROL BLOCK FOR I/O COMMANDS 
1557+4+* SVC EXIT RETURN TO USER VIA SUPVR IL 002D22 19D0 1673+INTBL DC A (DEVADD) ADRS OF DEVICE ADRS 
155 94+ IL 002D24 2CAE 1674+ DC A (INTOK INTERRUPT OK RETURN ADRS 
1559+ 3 RO ORC OIC ioiiiok ikki kototoick kak aaiake skate tok ak tok ak tokok took kok tok TT, 002D26 2C8A 1675+ DC A (INTER INTERRUPT ERROR ADRS 
1560+* TL 002D28 0003 1676+INTCC DC x¥"0003! INTERRUPT CODE EXPECTED 
15614#* CC O= CONTROLLER END ISB O= ADD STATUS IL 1G 7 Be RR RRR HR HAR RIO HOR I ORR RE RH I ROR TR A RR RO RO RE I KF AK TM AY 76 *% 
1562+* FOR 1= PROGRAM CONTROL INTERRUPT BITS 1= COMD REJECT TL 1679+* 
1563+* INTR 2= EXCEPTION INTERRUPT FOR 2= INCOR LENGTH IL 1680+* SUBROUTINE 
1564+ 3= DEVICE END INTERRUPT INTP 3= DCB SPEC CK IL 1681+* 
1565+* G= ATTENTION INTERRUPT 4= STG DATA CK IL 1682+* CONNECT YNTERRUPT CONTROL BLOCK & FREPARE DEVICE 
1566+* 5= ATTENTION / PROGRAM CNTL INTR 5= INV STG ADRS IL 1683+* 
1567+ 6= ATTENTION / EXCEPTION INTR 6= PROTRCT CK IL 16844+* PURPOSE 
1568+* 7= ATTENTION / DEVICE END INTR 7= I-FACE DATA IL 1685+* 
156 9+ a1 1686+ TO CONNECT THE INTERRUPT CONTROL BLOCK TO THIS DEVICE AND 
002C8A 706E 15704+INTER DC X*706E! COPY STATUS ANY LEVEL INTO R3 IL 1687+%* FREPARE ON THE DESIRED INTERRUPT LEVEL AND TO ALLOW THE DEVICE 
002C8C 336A 1571+ SRL 13,R3 POSITION INDICATORS IN R3 IL 1688+* TO INTERRUPT. 
OO0O2CB8E 4424 27c6 1572+ MVA OPTN1,R4 SET UP BASE ADRS IL 1689+* 
002C92 4C28 1573+ TBT {Ra c$) TS CS IN PROGRESS TL 1690+* CALLING SEQUENCE 
002C94 1006 1574+ JOFF INTES * NO IL 1691+* 
002C96 4UC6A 1575+ TBTS (P4 CE) TURN ON CYCLE STEAL INTER ERPOR TL 1692+* THIS SUBROUTINE HAS THE FOLLOWING ENTRIES: 
002C98 6FOD 27FA 1576+ MVW R7,CSTL8 SAVE CS ERR ISB VALUE, BITS 0-7 Ti 1693+* 
002Cc9C C328 27FB 1577+ MVB R3,CSTL8+1 * AND THE COND CODE IL 16944+* -—> BAL SCONC,R6 CLEAR DEV DEP STG AND CONNECT I/O BLK 
00O2CA0 SOOA 1578+ J INTR1 TL 1695+* -—-> BAL SCONP,F6 PREPARE DEVICE ONLY, ALREADY CONNECT 
OO2CA2 4c2u 1579+INTES TBT {Ra XE) TEST EXPECTED ATTEN / EPROP IND IL 1696+* 
OO2CA4 1002 1580+ JOFF NTET ECH IF NOT EXPECTED IL 1697+* RETURN CONTROL 
OO2CA6 F304 1581+ CBI 4,R3 IS THIS AN "ATTENTION! INTR TL 1698+* 
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LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 CROSS-~REFERENCE LISTING COPYRIGHT IBM CORP 1976 
teeat) ae BXS (R62) RETURN TO USER VIR REG 6 IF OKAY DECLARED NAME ATTRIBUTES AND REFERENCES 
+ F E DEVICE COULD NOT BEC CTE 
1701+* ) : Een 0 -RO. ABSOLUTE. HEX VALUE (00000000) 
ago VT OD 4 RHA K RAH HK I IR RR HR RR OR I FOR IO ROR I RC RR III RR ROR RC ROR RC CC a a a a ok ako Wes ‘ocd PP 808 1259 1260 1261 1262 1266 
O2D2A OFO06 1703+$CONC MVBI 6,R7 NUMBER OF BYTE TO CLEAR 
002D2C 0BO00 1704+ MVBI 0,R3 * AND THE DATA TO USE 0 -R1. ABSOLUTE. HEX VALUE (00000001) 
0O0O2D2E 4524 27D4 1705+ MVA DEV1,R5 * ALONG WITH THE ADRS TO USE 835 836 839 842 845 848 851 856 857 
002D32 2BAC 1706+ FFN R3 85) X 1751 1754 1757 1760 
002D34 CB25 27CA 1707+ MVWZ OPfN3,R3 CLEAR OLD CONTROLS FOR NEW ROUTINE 0 -R2. ABSOLUTE. HEX Meee eae ea 
002D38 4724 2D22 1708+ MVA INTRL,P7 SET R7 TO CONTROL BLOCK AND 809 810 811 820 823 829 830 838 841 
Boe nse eng cone Mae Svc, Clee * SONNECT If TO THIS DEVICE 0 R3 SBSOLUTE. HEY VALUE (00000003) | 
+ ERROR RETURN TO USER -R3. ° 
Sts Eee. Wigs 1168 1207 1241" 1213") 1292 1294 3350 1453 
DIA +$CONP MVW SINTL,IODCB PUT IN LEVEL & INTR PARAMETER : 
002D48 4724 2p16 1713+ MVA TOBLK,R7 SET F7 TO CONTPOL BLOCK TO PREPARE 1474 W77 1479 1535 1536 1571 1577 #1581 1611 
OO2D4C 4020 27CE 0708 1714+ MVWI x'0708',SIOIN INITIALIZE CONDITION CODE STORAGE 1616 1629 1659 1704 1706 1707 1715 1749 1750 
002D52 CB25 27D0 1715+ MVWZ S$ISE,R3 * AND CLEAR OLD ISB VALUE 1754 1766 
002D56 E€EOD 27D2 1716+ MVW R6,LSTIO SET UP ADDRESS THAT STARTED LAST 1/0 0 ~R4. ABSOLUTE. HEX Lee re ame ee 
0O02D5A 600C 1717+ SVC PRED * AND CALL ON SUPVR 7192 814 1463 1464 1467 1481 1482 1484 1485 
002D5c 5601 1718+ BXS (R6 , 2) RETURN TO USER 1488 1494 1500 1572 1573 1575 1579 1583 1612 
LIZA STERERRAY SS EES EARECESSSISEETESA NASR RELEASA SSS S 44 SAERSESESTST PROGR NTOES Jone 1e08 roca 1625 1626 1628 1631 1641 £4x21643 
+* : 
1722+* SUBROUTINE 0 ~R5. ABSOLUTE. HEX VALUE (00000005) 
173at8 0 1593 1996 138) 1363 1348 41960 4392 «13741908 
+ DISCONNECT THE INTERRUPT CONTROL BLOCK AND LOG ERRORS 
1725+* 1390 1471 1473 #1475 1477 #214693 #1498 1620 1621 
1726+* PURPOSE 1622 1653 1654 1656 1705 1706 1748 #«=+1761 
173644 . pees 793. BID B33 Bok 19133. 1137 «1439-1943 )«1145 
+x DISCONNECT THE INTERRUPT CONTROL BLOCK TO THIS DEVICE AND = 
1430:s BREW "Fouwh x0 Gaur THE OPEFATOR BETHE THE EROR CONSIESC 132 ies theo 1501 1257 Jeu2 1447 Teus 085 
+ qT ERROR CONDITION. 
ree 0 amr. EBSoxdRE? BE Waxde Goodggon Vo) Tee 1789 
+* CALLING SEQUENCE eR/e ° 
russ , G5 Heh GOH" 81S UIE 827 3208 1219 328 
1 +% THIS SUBROUTINE HAS THE FOLLOWING ENTRIES: 
1735+* 1703 1708 1713 1746 1752 1755 1767 #421770 
1736+* --—> B SERRS SET 'NG' BIT AND CONVERT DATA TO LOG 1703 $CONC ADDRESS. HEX LOCATION(00002D2A) IN CSECT(I7860 ) LENGTH (2) 
17374+* --—> B $CONX RETURN TO MDI SUPERVISOR TO TEST STS 793 
1738+ 1769 $CONX ADDRESS. HEX LOCATION(OOOO2DAE) IN CSECT(I7860 ) LENGTH (1) 
1739+* RETURN CONTROL 861 878 
1740+* 1745 $ERR$S$ ADDRESS. HEX LOCATION(00002D5E) IN CSECT (17860 ) LENGTH (6) 
17414+* B TURTN* RETURN TO MDI 794 813 81 4 
Lae OR B (R6) * IF THE DEVICE COULD NOT BE CONNECTED 625 S$INTL poo aaa LOCATION (00002802) IN CSECT(I7860 ) LENGTH (2) 
+ 
TU 4 RRR RH RIOR RII RR OIC II IORI III IO IIR RR RRR a kk a oie ake akc ake ake def ac ae ae ke a a 2 595 SIOIN ADDRESS. HEX LOCATION (O00027CE) IN CSECT (17860 ) LENGTH (2) 
002D5E 4020 1818 8000 17454$ERRS MVWI X'*8000' ,TUSTATUS SET ON 'NO GOOD! STATUS BIT 1166 1478 1536 1616 1653 1714 
002D64 4724 2EC8 1746+ MVA HEBLK,P7 GET ADRS OF CONTROL BLOCK 596 $ISB ADDRESS. HEX LOCATION (000027D0) IN CSECT(I7860 ) LENGTH (2) 
002D68 601A 1747+ SVC HTOE CONVERT HEX TO EBC VIS DCP 1479 1617 1656 1715 
002D6A ODO3 17484+SPRNT MVBI 3,R5 580 $LE ABSOLUTE. HEX VALUE (00000026) 
002D6C 4324 181A 1749+ MVA TOWORK, R3 SET UP BUFFER STORAGE 1484 1624 
002D70 6BO0D 2ECO 1750+ MVW R3,BUFPT 594 $TUID ADDRESS. HEX LOCATION(000027CC) IN CSECT (17860 ) LENGTH (2) 
002D74 4124 2DFO 1751+ MVA LINE1,R1 635 7191 766 1800 
002D78 OFO4 1752+ MVBI 4,P7 105 @DCADD1 ADDRESS. HEX LOCATION (000019B8) IN CSECT (17860 ) LENGTH (1) 
OO2D7A OE08 17534 MVBI 8,R6 | 1763 
OO2D7C 2B24 17544+MVBUF MVFN (R3) , (R1) | 106 @DCADD2 ADDRESS. HEX LOCATION (000019BA) IN CSECT(I7860 ) LENGTH (1) 
OO2D7E OFOYU 1755+ MVBI 4,R 1764 
002D80 OA4O 1756+ MVBI xfuo'.R2 42 @FIXT ABSOLUTE. HEX YALUE {90000 10 1) 
002D82 C258 1757+ MVB R2 AB dt 396 420 3 4u26 432 435 452 
002D84 BEFB 1758+ JCT MVBUF,R6 44 @GOTO ABSOLUTE. HEX VALUE (00000200) 
002D86 OFO8 1759+ MVBI 8,P6 466 
002D88 7921 002CcC 1760+ AWL Hh R41 49 @NVLD ABSOLUTE. HEX VALUE(00000600) 
002D8C BDF7 1761+ JCT  MVBUF,RS 4u7 464 
002D8E 4020 1802 FIFO 17624 MVWI PIDMSG10 ,PID+2 44 @QUES ABSOLUTE. HEX YALUE 00000190) 
002D94 4020 19B8 2EC6 1763+ MVA FAKETU,@DCADD1 411 414 “147 G29 LY 
0OO0O2D9A 4020 19BA 2EC2 1764+ MVA DC2PT, ODCADD2 47 @QUXX ABSOLUTE. HEX VALUE(00000400) 
OO2DA0 402C 19C4 0080 1765+ OWL BIT0080,SUPSTAT 438 455 
OO2DA6 4324 27CC 1766+ MVA $TUID,R3 SET UP BUFFER STORAGE 48 @TU XX ABSOLUTE. HEX VALUE(00000500) 
OO2DAA 6F13 18BA 1767+ BAL TUMSGATR*, R7 GO TO MESSAGE WRITER 384 399 
1768+* 1774 BEGIN ADDRESS. HEX LOCATION (00002DB8) IN CSECT (17860 ) LENGTH (2) 
OO2DAE 1769+SCONX EOQU * 1791 
OO2DAE C720 19D0 1770+ MVB DEVADD,R7 GET DEVICE ADDRESS FROM MDI 1795 BITO080 ABSOLUTE. HEX VALUE(00000080) 
002DB2 6013 1771+ SVC RICB RELEASE INTEPRUPT CONTROL BLOCK 1765 
OO2DB4 6812 2804 7 d2t B TURTN RETURN TO MDI SUPERVISOR 1790 BUFPT ADDRESS. HEX LOCATION(00002ECO) IN CSECT(17860 ) LENGTH (2) 
+ 
002DB8 0007 17744+BEGIN DC e382 NUMBER OF LINES TO PRINT 1034 CB29 ADDRESS. HEX LOCATION(000029DE) IN CSECT (17860 ) LENGTH (2) 
OO2DBA 0008 1775+ DC A (0008 LINE LENGTH = 8 CHAR 1257 
0O0O2DBC 5C5C40C1C2D6D9E3 1776+ DC C'¥x* ABORT! 1164 CCERR ADDRESS. HEX LOCATION (00002AB0) IN CSECT (17860 ) LENGTH (2) 
O0O2DC4u 0028 1777+ Dc A (0040) LINE LENGTH = 4O CHAR 1136 1142 1148 55 
002DC6 E3E4C9OCH4YOCODE6C9D 1778+ DC C'TUID IOIN ISB INST DEV1 DEV2 DEV3 DEV4 ! 584 CE ABSOLUTE. HEX VALUE (0000002A) 
OO2DEE 0028 1779+ DC A (0040) LINE LENGTH = 40 CHAR 1463 1575 1645 
OO2DFO 4O4OK4OKO4OKOKOUO4 17804LINE1 DC c? ' 664 CICB ABSOLUTE. HEX VALUE (00000014) 
002E18 0028 1781+ Dc A (0040) LINE LENGTH = 40 CHAR 1709 
OO2E1A C3D5E3D340C4C3C2F 1782+ DC C'CNTL DCB2 DCB3 DCB4 DCB5 CHAD BYCT ADRS ! 903 CLDCB ADDRESS. HEX LOCATION(0000290C) IN CSECT(I7860 ) LENGTH (2) 
OO2E42 0028 1783+ DC A (0040) LINE LENGTH = 4O CHAR 1346 
OOZE4G 4OROKOUOKO4OUOUO4 17844LINE2 DC ct ' 1180 CPUID ABSOLUTE. HEX VALUE (00000232) 
002E6C 0028 1785+ DC A (0040) LINE LENGTH = 4O CHAR 798 
OO2E6E DIEZCICHYOC3E260F 1786+ DC C*PSTD CS~-2 CS-3 CS-4 CS-5 CS-6 CS-7 CS-8 ! 582 cS ABSOLUTE. HEX YALGE (00090028) 
002E96 0028 1787+ Dc A (0040) LINE LENGTH = 40 CHAR 1464 1467 1573 1674 1643 
002E98 4&OsbOGOK4O4UO4O4OUOY 1788+LINE3 DC ct ' 583 CSA ae HEX VALUE(00000029) 
+ 
002ECO 0000 1790+BUFPT DC A 7) 613 CSBUF ADDRESS. HEX LOCATION(000027EC) IN CSECT (17860 ) LENGTH (1) 
0O2EC2 2DB8 17914+#DC2PT DC A (BEGIN) 816 831 6 1475 
OO2EC4 0101 17924FIXTU DC ¥"'0 1015 953 CSDCB ADDRESS. HEX LOCATION(0000295C) IN CSECT (I7860 ) LENGTH (2) 
OO2EC6 0101 17934FAKETU DC xX*'0101! 1465 
OOF1FO 17944+PIDMSG10 EQn X"*F1FO! 621 CSTL8 ADDRESS. HEX LOCATION (000027FA) IN CSECT(I7860 ) LENGTH (2) 
000080 17954#BIT0080 EQU Xx'*0080! 1576 1577 
17964* 603 DCBUF ADDRESS. HEX LOCATION(000027DC) IN CSECT(I7860 ) LENGTH (1) 
1797+* DATA CONTROL BLOCK FOR CONVERTING HEX TO EBCDIC 1470 
1798+ 1791 DC2PT ADDRESS. HEX LOCATION(00002EC2) IN CSECT (17860 ) LENGTH (2) 
002EC8 0030 17994HEBLK DC A 4B) NUMBER OF BYTES TO CONVERT 1764 
OO2ECA 27CC 1800+ Dc A($T TD) FROM ADRS 108 DEVADD ADDRESS. HEX LOCATION (00001900) IN CSECT (17860 } LENGTH (1) 
neanad 181A ae nes A (TUWORK) AND THE TO ADRS heae nae 797 1134 1140 1146 1153 1159 1664 
N 
598 DEV1 ADDRESS. es LOCATION (000027D4) IN CSECT (17860 ) LENGTH (2) 
891 DGDCB ADDRESS. HEX LOCATION(000028FC) IN CSECT (17860 ) LENGTH (2) 
70 DUMMY ABSOLUTE. HEX ¥ALUE(00000000) 
472 ENTPT ADDRESS. HEX LOCATION (000025D2) IN CSECT (17860 ) LENGTH (1) 
575 ER ABSOLUTE. HEX VALUE(00000021) 
814 1481 1500 1583 1625 1650 

















SRERSE CE OR CRORES SR CE OSCE CRC TORO One 2S 





Lt ht he Se Sit Se Ee hae he Ke Re Ee G2 4 82 


PAGE O9A 
COPYRIGHT IBM 2 ORP 1976 


17860 --- PAGE 09 I7860 --- 


COPYRIGHT IBM COPP 1976 


SEEK FAILURE MAP P/N=1635281 EC=755285 SEEK FAILURE MAP 
CROSS-REFERENCE LISTING 


ATTRIBUTES AND REFERENCES 


P/N= 1635281 EC=755285 
CROSS-FEFEPENCE LISTING 
ATTRIBUTES AND REFERENCES 


DECLARED NAME DECLARED NAME 


650 EXIT ABSOLUTE. HEX VALUE (00000006) 455 N00017 ADDRESS, HEX LOCATION (000025B4) IN CSECT(I7860 ) LENGTH(2) 
1793 FAKETU jADDRESS. HEX LOCATION(OOO02FC6) IN CSECT(I7860 ) LENGTH(2) 464 N00018 ADDRESS. HEX LOCATION(000025C2) IN CSECT(I7860 ) LENGTH (2) 
1035 FIVES ADDPESS. HEX LOCATION (000029E0) IN CSECT(I7860 ) LENGTH (2) 466 N00019 ADDRESS, HEX LOCATION (000025C4) IN CSECT(I7860 ) LENGTH(2) 
513 F00006 ADDRESS. HEX LOCATION(000026B8) IN CSECT(I7860 ) LENGTH(1) 61 OF ABSOLUTE, HEX VALUE (00000202) 

505 F00009 ADDRESS, HEX LOCATION (0000267E) IN CSECT(I7860 ) LENGTH(1) 539 OPTN1 ADDRESS, HEX LOCATION (000027C6) IN CSECT(I7860 ) LENGTH (2) 

491 F00039 ADDRESS. HEX LOCATION (000025D8) IN CSECT(I7860 ) LENGTH(1) 562 OPTN3 ADBRESS. HEX LOCATION (000027CA) IN CSECT(I7860 ) LENGTH(2) 

495 F00056 ADDRESS. HEX LOCATION(000025DE) IN CSECT(I7860 ) LENGTH (1) 104 PARMARA ADDRESS. HEX LOCATION (0000196£) IN CSECT(I7860 ) LENGTH(1) 

509 F00067 ADDRESS. HEX LOCATION (00002696) IN CSECT(I7860 ) LENGTH(1) 1033 PHYSC ADDRESS. HEX LOCATION (000029DC) IN CSECT(I7860 ) LENGTH (2) 
523 FO0084 ADDPESS. HEX LOCATION (00002720) IN CSECT(I7860 ) LENGTH(1) 72 PID ADDRESS. HEX LOCATION (00001800) IN CSECT (17860 ), LENGTH (1) 
533 F00096 ADDRESS. HEX LOCATION(000027C0) IN CSECT(I7860 ) LENGTH (1) 83 84 85 86 87 8 89 90 91 

467 92 93 94 95 . 96 7 98 99 100 
1799 HEBLK ADDRESS. HEX LOCATION(O0002EC8) IN CSECT(1I7860 ) LENGTH(2) 101 102 103 #104 #«2°1105 106 107 108 #109 
1746 110, 1117 112 113° 1174 #2115 1762 
670 HTOE BBSOLUTE. HEX VALUE (0000001A) 1794 PIDMSG10 ABSOLUTE. HEX VALUE (O000F1FO) 
1174 IDCBCE1 {ADDPESS, HEX LOCATION (00002AC6) IN CSECT(I7860 ) LENGTH(2) 656 PREP ABSOLUTE. HEX VALUE(0000000C) 
1176 IDC BCE2 {ADDRESS, HEX LOCATION (OO002ACA) IN CSECT(I7860 ) LENGTH(2) 1173 RDATA ADDRESS. HEX LOCATION(00002AC4) IN CSECT(I7860 ) LENGTH (2) 
1178 IDCBRAP )ABDRESS. HEX LOCATION (OOO02ACE) IN CSECT(I7860 ) LENGTH(2) 1171 RDATAO ADDPESS. HEX LOCATION(00002AC0O) IN CSECT(I7860 ) LENGTH (2) 
1170 IDCBO ADDRESS, HEX LOCATION (00002ABE) IN CSECT(I7860 ) LENGTH (2) 986 RDDCB ADBRESS. HEX LOCATION (0000298C) IN CSECT(I7860 ) LENGTH(2) 
1172 IDCB1 ADDRESS; HEX LOCATION (00002AC2) IN CSECT(I7860 ) LENGTH(2) 652 RESET ABSOLUTE. HEX VALUE (00000008) 
646 IDLE ABSOLUTE, HEX VALUE (00000002) 663 RICB RESOLUTE. HEX VALUE (00000013) 
577 IN ABSOLUTE. HEX VALUE (00000023) 1008 RKDCB ADDRESS. HEX LOCATION(000029AC) IN CSECT(I7860 ) LENGTH (2) 
1482 1494 1613 1370 1375 1382 13 
1673 INTBL BBDRESS. HEX LOCATION(00002D22) IN CSECT(I7860 ) LENGTH(2) 918 PSDCB ADDPESS. HEX LOCATION (0000292c) IN CSECT(I7860 ) LENGTH(2) 
1579 INTER ADDRESS. HEX LOCATION(00002C8A) IN CSECT(I7860 ) LENGTH(2) 1264 RTT01 ABBRESS- HEX LOCATION(00002B24) IN CSECT(I7860 ) LENGTH (4) 
1579 INTES ADDRESS. HEX LOCATION(00002CA2) IN CSECT(I7860 ) LENGTH (2) 602 SCTID ADDPESS. HEX LOCATION (009027D4 IN CSECT (I7860 Y LENGTH (2) 
1574 925. 937 1015 1211 1292 1351 1354 1372 1375 
1583 INTET  BRBRESS. HEX LOCATION(00002CAA) IN CSECT(I7860 ) LENGTH (2) 1043 SC TST ADDRESS: HEX EGcattOn (00002950) IN CSECT(I7860 ) LENGTH(2) 
1610 INTOK ADDPESS. HEX LOCATION(OO002CAE) IN CSECT(I7860 ) LENGTH(2) 1158 SENSO ADDPESS. HEX LOCATION(00002A9C) IN CSECT(I7860 ) LENGTH(4) 
16 32 INTRX ABDRESS., HEX LOCATION(OQO002CDE) IN CSECT(I7860 ) LENGTH (2) 1152 SENS1 ADDRESS. HEX LOCATION(00002A88) IN CSECT(I7860 ) LENGTH(4) 
1613 INTR1 ADDRESS. 4 EX LOCATION (00002CB6) IN CSECT(I7860 +) LENGTE(2) 942 SKDCB , BDDRESS. HEX LOCATION(0000294C) IN CSECT(I7860 ) LENGTH(2) 
16 18 INTR2 BDDRESS. HEX LOCATION (00002CC4) IN CSECT(I7860 ) LENGTH(1) 654 START RESOLUTE. HEX VALUE(0000000A3) 

16 26 INTR3 RBBRESS. HEX LOCATION(00002CD2) IN CSECT(I7860 ) LENGTH(2) 1088 STATS ADDRESS. HEX LOCATION (000024) IN CSECT(I7860 ) LENGTH (2) 
1664 IOBLK ADDRESS. HEX LOCATION (00002D16) IN CSECT(I7860 ) LENGTH(2) 107 SUPSTAT RDDPESS. HEX LOCATION(000019C4) IN CSECT(I7860 ) LENGTH(1) 
1666 IODCB ADDRESS. HEX LOCATION (0000 2D1A) IN CSECT (17860 LENGTH (2) 1264 TT 303 ADDRESS. HEX LOCATION(00002B1C) IN CSECT(I7860 ) LENGTH(6) 

873 1343 1346 1349 1361 1364 1367 1370 13 1256 
1382 1386 1394 1398 1401 1405 1465 1471 #171: 1270 TT 304 ADDRESS. HEX LOCATION (00002B34) IN CSECT(I7860 ) LENGTH (4) 
1667 TOMOD ADDRESS. HEX LOCATION(00002D1C) IN CSECT(I7860 ) LENGTEH(2) 1254 1263 1265 
1460 1466 1213 TT UY ADDRESS. HEX LOCATTON(00002AEC) IN CSECT(I7860 ) LENGTH (2) 
40 17860 CSECT. START(00002500) LENGTH (2510) ESDID(0) 1209 
40 803 TT70 ADDRESS. HEX LOCATION (00002844) IN CSECT(I7860 ) LENGTH(6) 
10 32 LGSEC ADDRESS. HEX LOCATION(000029DA) IN CSECT(I7860 ) LENGTH (2) 800 
1255 1257 1260 1267 806 TT7OA ADDRESS. HEX LOCATION(00002850) IN CSECT(I7860 ) LENGTH(4) 
1780 LINE1 ADDRESS. HEX LOCATION(O0002DFO) IN CSECT(I7860 ) LENGTH(4O) 801 80 
1751 804 TT7OB ADDRESS. HEX LOCATION(0000284A) IN CSECT(I7860 ) LENGTH (4) 
597 LSTIO ADDPESS. HEX LOCATION (000027D2 IN CSECT(I7860 ) LENGTH(2) 802 
1133. 1139 1145 1152. 1158 69 1716 807 TT70C ADDRESS. HEX LOCATION(00002854) IN CSECT(I7860 ) LENGTH(2) 
574 MI ABSOLUTE. HEX VALUE (00000020) 808 
1628 95 TUMSGWETR ADDRESS. HEX LOCATION(000018BA) IN CSECT(17860 ) LENGTH(1) 
1754 MVBUF ADDRESS. HEX LOCATION(00002D7C) IN CSECT(I7860 ) LENGTH(2) 1767 
1758 1761 101 TURESUL ADDPESS. HEX LOCATION (000018C8) IN CSECT(I7860 ) LENGTH(1) 
586 NG ABSOLUTE. HEX VALUE(0000002C) 809 810 811 
1631 626 TURTN ADDRESS. HEX LOCATION(00002804) IN CSECT(I7860 ) LENGTH (2) 
581 NI ABSOLUTE. HEX VALUE(00000027) 790 872 #877 «+17 
1488 77 TUSTATUS ADDRESS. HEX LOCATION(00001818) IN CSECT(I7860 ) LENGTH(1) 
384 N00001 ADDRESS. HEX LOCATION(00002550) IN CSECT(I7860 ) LENGTH (2) 1745 
318 482 78 TUWORK ADDRESS. HEX LOCATION(0000181A) IN CSECT(I7860 ) LENGTH(1) 
396 N00002 ADDRESS. HEX LOCATION (00002562) IN CSECT(I7860 ) LENGTH (2) 1749 180 
321 861 T7OA ADDRESS. HEX LOCATION(000028DE) IN CSECT(I7860 ) LENGTH(4) 
399 N00003 ADDRESS. HEX LOCATION(00002566) IN CSECT(I7860 ) LENGTH (2) 832 858 
324 385 ; 833 T70B ADDRESS. HEX LOCATION(000028A0) IN CSECT(I7860 ) LENGTH(4) 
411 noooo4 ADDRESS. HEX LOCATION(00002578) IN CSECT(I7860 ) LENGTH (2) 828 
327 821 T701 ADDRESS. HEX LOCATION(00002880) IN CSECT(I7860 ) LENGTH (2) 
414 N00005 ADDRESS. HEX LOCATION (0000257C) IN CSECT(I7860 ) LENGTH (2) 819 
330 824 T702 ADDRESS. HEX LOCATION(00002886) IN CSECT(I7860 ) LENGTH(2) 
417 N00006 ADDRESS. HEX LOCATTON(00002580) IN CSECT(I7860 ) LENGTH (2) 822 
333 8 39 T703 ADDRESS. HEX LOCATION(000028B0) IN CSECT(I7860 ) LENGTH (2) 
420 N00007 ADDRESS. HEX LOCATION(00002584) IN CSECT(I7860 ) LENGTH(2) 837 
336 842 T704 ADDRESS. HEX LOCATION(000028B6) IN CSECT(I7860 ) LENGTH(2) 
423 N00008 ADDRESS. HEX LOCATION(00002588) IN CSECT(I7860 ) LENGTH (2) 840 
339 418 B45 T705 ADDRESS. HEX LOCATION(000028BC) IN CSECT(I7860 ) LENGTH(2) 
426 N00009 ADDRESS. HEX LOCATION(0000258C) IN CSECT(I7860 ) LENGTH (2) 843 
342-415 848 T706 ADDRESS. HEX LOCATION(000028C2) IN CSECT(I7860 ) LENGTH(2) 
429 N00010 ADDRESS. HEX LOCATION(00002590) IN CSECT(T7860 ) LENGTH(2) B46 
345 12 851 T708 ADDRESS. HEX LOCATION(000028C8) IN CSECT(I7860 ) LENGTH (2) 
432 N00011 ADDRESS. HEX LOCATION (00002594) IN CSECT(I7860 ) LENGTH (2) 849 
348 854 T709 ADDPESS. HEX LOCATION(000028CE) IN CSECT(I7860 ) LENGTH (4) 
435 N00012 ADDRESS. HEX LOCATION(00002598) IN CSECT(I7860 ) LENGTH (2) 852 
351-430 877 T72A ADDRESS. HEX LOCATION (000028F4) IN CSECT(I7860 ) LENGTH(4) 
438 N00013 ADDRESS. HEX LOCATION(0000259C) IN CSECT(I7860 ) LENGTH(2) 441 458 
354 400 878 T72B ADDRESS. HEX LOCATION(000028F8) IN CSECT(I7860 ) LENGTH (4) 
447 NO0014 ADDRESS. HEX LOCATION (000025AA) IN CSECT(I7860 ) LENGTH(2) 876 
357 790 T7870 ADDRESS. HEX LOCATION(00002814) IN CSECT(I7860 ) LENGTH (4) 
449 N00015 ADDRESS. HEX LOCATION(000025AC) IN CSECT(I7860 ) LENGTH (2) 386 401 
360 439 872 T7872 ADDRESS. HEX LOCATION(000028E2) IN CSECT(I7860 ) LENGTH (4) 
452 N00016 ADDRESS. HEX LOCATION(000025B0) IN CSECT(I7860 ) LFNGTH(2) KYO 457 
363 975 VR DCB ADDRESS. HEX LOCATION(0000297C) IN CSECT(I7860 ) LENGTH(2) 
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DECLARED NAME ATTRIBUTES AND REFERENCES 
1364 
997 WKDCB ADDRESS. HEX LOCATION(0000299C) IN CSECT(I7860 ) LENGTH (2) 
1378 1379 1394 1395 
964 WRDCB ADDRESS. HEX LOCATION (0000296C) IN CSECT(I7860 ) LENGTH (2) 
1036 WRSID ADDRESS. HEX LOCATION (00002982) IN CSECT(I7860 ) LENGTH (2) 
915 1004 1212 1293 1395 1399 
908 WSDCB ADDRESS. HEX LOCATION(0000291C) IN CSECT(I7860 ) LENGTH (2) 
1398 1399 1401 1402 
1040 WSIDT ADDRESS. HEX LOCATION(000029EA) IN CSECT(I7860 ) LENGTH (2) 
578 XE ABSOLUTE, HEX VALUE(00000024) 
1579 1641 
576 XI {RESOLUTE HEX VALUE (00000022) 
1460 XIO ADDRESS. HEX LOCATION(00002C18) IN CSECT(I7860 ) LENGTH(4) 
1344 1347 1355 1362 1365 1368 1376 1380 1384 
1392. 1396 1400 1403 6 
1641 XIOCK ADDRESS. HEX LOCATION(00002CEO) IN CSECT(I7860 ) LENGTH (2) 
1648 XIOCO  BDDPESS. HEX LOCATION (00002CF2) IN CSECT(I7860 ) LENGTH(2) 
1465 XIOCS ADDRESS; HEX LOCATION (00002C22) IN CSECT(I7860 ) LENGTH (6) 
1650 XIOCV {BPDRESS. HEX LOCATION(00002CF6) IN CSECT(I7860 ) LENGTH (2) 
1659 XIOCX ADDRESS. HEX LOCATION(00002D10) IN CSECT(I7860 ) LENGTH(4) 
1534 XIOER ADDRESS HEX LOCATION(00002C7E) IN CSECT(I7860 ) LENGTH (2) 
1469 XI01 {ADDRESS. HEX LOCATION (00002C32) IN CSECT(I7860 ) LENGTH (4) 
1482 XIO2 ADDRESS. HEX LOCATION(00002C58) IN CSECT(1I7860 ) LENGTH (2) 
1494 X1I08 ADDRESS. HEX LOCATION (00002C6C) IN CSECT(I7860 ) LENGTH (2) 
65 XTRNL ABSOLUTE. HEX VALUE (00000001) 
1018 ZEROO ADDRESS. HEX LOCATION(000029BC) IN CSECT(I7860 ) LENGTH(2) 
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